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undocumented features of 
Archive. 


YOU CANNOT 
MEAN ... 


a popular OL package. 


ARCHIVE SECRETS 


An investigation into some of the 


Another between-the-lines look at 


Gardone 


by producers and users. All 


speak by the organiser, SPEM 
of Turin, which requests that a 
script of any talk should be 
delivered at least a week in 


There were two small errors in 
the Printer Spooler program in 
the July issue of OL World. 


The program) should be 
started by EXEC 
mdvl__spooler, not  EX- 


FC_W mdvl—spooler, and 
the definition to — send 
CHR$(10) to the — printer 
should be If, not Tf as printed. 


Euroshow 


The European Microfair for 
Sinclair Users. organised by 
the Club Sinclair BruQsl. for 
OL, Spectrum, Thor, Z-88, 
ZX-81 and ZX-80 users, will be 
held at the Eurovolleycenter, 
Beneluxlaan 22, 1800 Vilvoor- 
de, Brussels, Belgium on Octo- 
ber 21. 

The exhibition hall is near to 
exit 6 of the Brussels ring road 
and close to the international 
airport, There is a hotel on the 
site and there will be rooms for 
lectures as well as exhibitions. 
A bureau de change will be 
running on the site for foreign 
Visitors. 

More information from Ja- 
ques Tusset, secretary, Club 
Sinclair BruQsl, Aarlenstraat 
104, L040 Brussel, Belgium. 
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interested users are invited to 


QL SHOW AT VILLA ALBA 


he first Italian OL 
mecting will take pla- 
ce at the Villa Alba, 
Riviera 
(Brescia), Italy on September 
23. The all-day event is ex- 
pected to include firms exhibit- 
ing and selling OL products. 
with demonstrations and talks 


advance, written in English, so 
that it can be translated into 
Italian. 

Ad hoc offers to speak will 
be accepted but, says Guido 
Masocro of SPEM, “the trans- 
lation could be bug-ridden and 
slow.” Even so, the offer is 
open, Among the names which 
SPEM hopes to have attending 
are Digital Precision, Miracle 
Systems. Sector Software, 
PDOL, Jochen Merz Software, 
Tony Tebby and members of 


Flect Tactical Command, an 
ambitious new real-time net- 
working game for the QL, is 
duc for release soon. Ideally, 
says the manutacturer Di-Ren, 
the all-machine code game Is 
played between two computers 
over network, serial or modem 
links, It can be run on a single 
computer for practice. 

In real-time and three 
dimensions, the game is de- 
signed to be as realistic as 
possible, The scenario is set in 
1,000 square miles of ocean. 
with a team of 16 vessels under 
the guidance of cach player. 
The player is the Fleet Tactical 
Commander, who can move 
from ship to ship, observing 
and guiding the action from the 
bridge of the appropriate ves- 
sel, 


Write-on-Line is the working 
name chosen for a new user 
group dedicated to printer us- 
ers. Nick Godwin. previously 
organiser of the ZX Broad- 
shect ZX-80/81 user group, 
would like to hear from any- 
body interested in joining and 
Participating in a printer 
group. 


Meet the Fleet 


Printer Connection 


various European user groups, 
including Quanta. The villa is a 
19th century building by popu- 
lar Lake Garda, with a res- 
taurant and hoels in the locality 
and parking for 800 cars. 

SPEM clearly wants the con- 
vention to be an open and 
friendly event. More details. 
including stand bookings, can 
be obtained from Guido 
Masoero, SPEM, Via Aosta 
86, 10154 Torino, Italy. Tel: 
Q101 011 857924. 


Completing the — realism, 
cach package will contain an 
instruction manual, two scts 
each of charts, compass’ 
dividers, protractors, pencils, 
erasers and rulers for naviga- 
tion, and two copies of the 
game on microcassette or disc, 
Networking or scrial-to-serial 
port leads are optional extras. 

Fleet Tactical Command will 
cost £49.95 for the two-player 
package. *This is an unusual 
idea, soit is something ofa shot 
in the dark.” says proprietor 
Robin Barker. He expects the 
game will become available on 
other computers, including va- 
rious Amstrad models, in duce 
course. 

Enquirics to Di-Ren, 43 
David's Road, Forest Hill, 
London SE23 3EP. 


Printers bring users a great 
deal of grief at times. so a skills 
exchange which concentrates 
on them could prove valuable. 

Interested users should write 
with a SAF. to Nick Godwin at 
4 Hurkur Creseent, Fyemouth, 
Berwickshire TDI4 5AP, tell- 
ing him printers they use or in 
which are interested. 


Babani 


The two latest publications 


from Bernard Babani (Pub- 
lishing) Ltd. are A Conetse 
Advanced User's Guide to MS- 
DOS by N. Kantaris and More 
Advanced Midi Projects by 
R.A. Penfold. Babani pub- 
lishes several dozen books on 
gencral and specific subjects in 
electronics, audio, amateur 
radio, computing and clectro- 
me music. There are three 
current OL-specific titles on 
the list An Introduction to 
QOL. Machine Code by R.A. and 
JW. Penfold. fate the OL 
Archive and Counting on OL 
Abacus, both by J.W. Penfold. 

Almost all Babani books 
cost less than £5, many of them 
half that price, and a free 
complete catalogue can be 
obtained by writing to Bernard 
Babani (Publishing) Ltd, The 
Grampians, Shepherds Bush 
Road. Londen W6 7NF with 
your name and address. 


Open Channel is where you have the 
opportunity to voice your opinions in Sinclair 
QL World. Whether you want to ask for help 
with a technical problem, provide somebody 


with the answer, or just sound off about 
something which bothers you, write to: Open 
Channel, Sinclair QL World, Greencoat 
House, Francis Street, London SW1 1DG. 


Looking for old OL titles once 
published by Sunshine Books, 
I went to my local library and it 
had two Sunshine Books publi- 
cations, The Working Sinclair 
QL and The Sinclair QDOS 
Competition, the latter has a 
complete list of pokes to alter 
the system variables. 

The commands to be inclu- 
ded in a program to change 
from upper- to lower-case, and 
vice versa, is: 


10 POKE__W. 163976, 6000: 
REM All keyboard entry 
after this is upper-case 


10 


or 


10 POKE 163976,0: REM. All 
keyboard entry after this is 
lower-case. 


Both commands can be over- 

ridden by toggling the CAPS 
LOCK key. 

Andy Hollis 

Wallington, 

Surrey. 


Editor's comment: So far as | 
know, all the QL books pub- 


lished by Sunshine are out of 


print. For historical reasens, 
sometime before I joined QL 
World, I saw the last of the 
Sunshine computer volumes 
packed in cardboard boxes 


not many of them — beund for 
a remainder merchant. Re- 
mainder bookshops are an 
occasional source of out-of- 
print books but libraries are 
better. A local library will often 
be able to order a volume which 
is notin stock if you can give the 
title and/or author's name. 


John Roberts might like to 
know that there is a program, 
Indexer, in the Quanta library, 
designed to index text files. I 
wrote it about two years ago 
and used it to index a 70,000- 
word book. It is fairly fast and 
you can make up an index with 
single words or groups of 
words. 

Hugh Maill, 


Frazier Street, 
London SE1. 


With regard to thermal paper 
for the Serial 8056 printer, 
Inmac — telephone 01-740 
9540 and local branches — was 
advertising 8.5in. by 80in. rolls 
of thermal paper for £2.55 a 
roll — £2.50 for larger quan- 
ties, 
T. Heath, 
Henley Green, 
Coventry. 


Editor's comment. Check cur- 
rent price and availability be- 
fore ordering. 


In the Budget Planner, SQLW 
July 1989, the ‘staircase matrix’ 
formula does not work as 
given. Please can you give the 


correct formula and explain the 
algorithm? 
E J Sargeant, 
Long Eaton, 
Notts, 
Mike Lloyd replies: This is just 
one of the letters which pointed 
out two small but crucial typing 
errors affecting the Budget 
Planner spreadsheet. The com- 
ma before the final zero in the 
formula should in fact be a “less 
than” symbol and there should 
be two closing brackets after the 
zero. The correct formula for 
Cell 06 is: 
int (index (col() —13, 6) {12 * 
(row() —col() +9 +12" (row() 
—col() + 9 <0)) 

The objective of the formula 
is to calculate how much would 
be saved by putting aside a 
regular amount per month for a 
year before withdrawing it all to 
pay a particular month’s bills. 
The amount is found by divid- 
ing the month's bills by twelve, 
rounding down to the nearest 
integer. To understand the rest 
of the formula, replace “col()” 
with the month in which the bills 
must be paid and “row()” with 
any month of the year for which 
a balance is required. Ignore the 
“+9” as this is an offset im- 
posed by the position of the 
matrix in the spreadsheet. If a 
£120 bill was to be paid each 
April, for example, the balance 
in, say, October, would be: 


£10 * (10 — 4) = £60 


For months prior to April this 
formula produces a negative 
result which is corrected by 
adding twelve to the calcula- 
tion. Thus, in February, the 
balance will be. 


£10 * (2-4 +.12)= £100 


I hope this explains the ma- 
jority of readers’ queries on this 
point. to everyone who strug- 
gled with the incorrect formula, 
my sincere apologies. 
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Bryan Davies makes 
enquiries and offers 
advice on writing 

for The Progs. 


t the time of writing, the Report 

Generator modules for Flash- 

Back had not been completed 

and we cannot yet print the 
second part of the review started in the 
June issue. Letters of apology and expla- 
nation have been sent by the supplier to 
those who ordered FlashBack Special 
Edition. By now test copies of the new 
routines should be with the guinea pigs 
and it is hoped that the final part of the 
review will appear soon. 

The revised FlashBack was completed 
several months ago. The Lightning “go 
faster” program is ready for release in its 
Special Edition form. It will be available on 
ROM or disc; the former will plug into the 
ROM port at the rear of the QL. 

The program will be faster, of the order 
of 15-30 percent depending on machine 
and program configuration, and will allow 
improved scrolling. What will be interest- 
ing to investigate is the claimed ability to 
exert control over the screen printing in 
windows of other programs, including 
notoriously unco-operative ones such as 
Quill. 


Media Manager 


Another Special Edition should be 
available by the time this issue appears — 
Media Manager. The supplier admits that 
the original version of the program was 
not the most friendly piece of software . Its 
merits were that it enabled some recovery 
of corrupted QL files and transfers could 
be made of MS-DOS files to the QL. The 
new version is not a re-write, as experi- 
ence with the original dictated so many 
changes that would have been pointless. 
It is new, and from the pen which has 
produced or been involved in the design 
of more good QL programs than any other 
it should take no guessing to figure who 
that is. 

It is surprising how many programs are 
sent to QL World for consideration as 
Program of the Month, or for inclusion in 
Microdrive Exchange. What is even more 
surprising is the generally reasonable 
quality of them. The problem is what to do 
with them. If the magazine were to devote 
more space to printing programs, there 
could be complaints from readers who are 


12 


not interested in typing-in SuperBasic 
programs. 

For a program to have a better-than- 
average chance of being selected, it 
needs to be short enough to fit into the 
space allocated to The Progs, should 
preferably be written in SuperBasic — with 
an assembler version also if desired — 
and, above all, it has to be of interest toa 
significant number of readers. 

There is no point in producing the 
thousandth variant on the Space Hero 
theme unless the conception and execu- 
tion are exceptionally good. Likewise, 
others have produced games like 
draughts, whist, bingo and so on. On the 
other hand, a monster project to produce 
the definitive front-end program for the QL 
is equally doomed; if you can really write 
such a program, it is better to contact one 
of the well-known software suppliers. 

There are some companies which are 
worth knowing about because they cater 
to those who do not have deep pockets. 
Two are Greenweld Electronic Compo- 
nents and J.N. Bull — see Information 
panel. Both specialise in picking up 
discontinued products and selling them at 
low prices and the range is very wide — for 
example, hair dryers at two for £5, ni-cad 
battery chargers at two for £1. They 
usually have a selection of computer 
units, such as keyboards, and occasional- 
ly have QL-related items. 

Bull was selling ICL OPD Microdrive 
units at £5 each — two drives — but | 
believe it is out of stock of them. Green- 
weld advertises OPD circuit boards at £5, 
complete with 68008 CPU chip, the ROM 
chips containing the operating system, 
and various other components; the 68008 
on its own is offered for £3. 

The OPD 68008 | tried appears to work 
normally in the QL — although no guaran- 
tee of function is given at this price level, 
naturally. Bull offers cartridges “for the 
double Microdrive”, presumably a refer- 
ence to the OPD units at £1.50 each or 
four for £5. Disc drives and their power 
supplies are relatively cheap. 


CP/M formats 


Maurice Richardson complained that 
the Success CP/M emulator would not 
convert his unspecified disc formats. 
CP/M formats vary considerably; there is 
nothing like the uniformity found in the 
MS-DOS world. The program was de- 
signed to run CP/M programs in certain 
formats directly and to convert programs 
in other formats into a form in which they 
could be run. The only format | know to be 


RAORURE 


unconvertible is that of the Amstrad PCW; 
that could be converted by the 1.0 version 
of the program but not by the later one. 
Apart from the format in which data is 
written to the disc, there is the matter of 
the disc drive type; there is by no means 
complete compatibility between drive 
types and there are undoubtedly CP/M 
programs on discs which the QL drives 
will not accept. If you can find the 
instructions which arrived with your disc 
interface, look for a compatibility chart to 
determine whether or not the drive from 
which your CP/M discs came is compati- 
ble with the one you have on your QL. 


Transform 


Transform has largely moved out of 
the QL market but can still supply car- 
tridges and cartridge boxes. It also pro- 
vides support for Psion software. In the 
main, it now deals with the Psion Organis- 
er and associated units and PCs, particu- 
larly in networks, but also handles Z-88 
items. Transform International is a 
separate operation and still supplies its 
usual range of QL products. 

There has been some discussion as to 
whether or not Front Page Extra 2 is fully 
usable. A version 1.03 master disc was 
sent by B. Hands, with the information 
that printing with a copy made from it was 
unsuccessful, only a few lines of the 
document appearing on paper. With no 
corrective work being necessary, another 
copy made on my system produced 
reasonable printout. 

M.C. Holland finds that he gets blank 
spaces in lines of text from version 1.05 
for the basic QL, using a Citizen 120D 
printer. Again, a copy made from that 
produced reasonable print on my printer. 
Normally | would say the problem is in 
entering the printer parameters, in parti- 
cular those which determine the vertical 
spacing increments, for instance the ESC 
“A” +n sequence commonly used to set 
1/72in. line spacing. 

Another place to make a mistake is 
when asked how many codes your printer 
requires for line feeds; as the answer can 
only be one or two, it does not take long to 
try both possibilities. 

What seems to be a standard question 
in PC programs also is what setting has 
been made with printer DIP switches for 
line feeding — auto or manual. Again, 
there are only two possibilities and trying 
both should not take long. Unfortunately, 
in Holland’s case at least, none of the 
questions had to be answered, because 
the printer concerned was Epson- 
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compatible and indicating that during the 
set-up process was about all the user was 
allowed to do. The only other areas which 
seemed likely to produce bad printing 
were incorrect setting of DIP switches in 
the printer and some fault in the inter- 
connecting cabling. The latter point 
appeared at first to be anon-starter, since 
printing from Quill had been satisfactory 
on the unexpanded QL. 

Investigation with the printer and serial- 
parallel interface concerned revealed that 
some of the printer DIP switch settings 
needed changing but that did not fix the 
basic problem, which showed as horizon- 
tal gaps in lines of printed text. At the 0,0 
character size there was a repeated 
pattern of form lines, the first of which was 
printed correctly, the other three suffering 
from missing or misplaced sections. The 
problem was fixed by substituting another 
serial-parallel interface. 

Although standard text printing, from 


A two-dimensional CAD package 
suitable for all general, scientific 
and engineering applications 
Create accurate, finely detailed 
plans, diagrams or designs. 

a Zoom in and out. 

#* Library of drawing tools 

#* Fast, multi-width output 

#* 2 screen modes 


STRIP POKER 


Challenge the luscious Denise to a 
riveting game of cards. 


PT i 


Stone Street, North Stanford, Ashford, 


TALENT + kent 12s cr. 


Tel:0303 813883 Fax: 0303 812892 Telex: 966676 PMFAB G 
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Quill and text87, was satisfactory, 
graphics printing was not. It remains to be 
established whether the fault is inside the 
interface or in the wiring to an from it. The 
wiring is a possibility because the particu- 
lar interface concerned has a 9-pin “D” 
connector, for use on QLs made for 
overseas markets such as Germany, and 
there seems to be some uncertainty 


INFORMATION 

Media Manager Special Edition, 
Lightning Special Edition: 
Digital Precision, 

22, The Avenue, 

Chingford, 


London E4 9SE. 
Tel: 01-527 5493 
FlashBack: 
Sector Software, 
39 Wray Crescent, 
UInes Walton, 


CARTRIDGE 
DOCTOR 


Essential for all QL owners. 

# Rescue files from damaged 
cartridges 

%* Recover newly deleted files 

# Recover files with damaged 
blocks 

% And much more 


Identify 500+ stars and planets with 
this impressive astronomy program. 
COSMOS displays accurate star maps 
for any date and time anywhere 

in the world. View the solar 

system, the moons of 

Jupiter, Saturn’s rings 

- any visible object in 

the sky 
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concerning the wiring to the serial port 
connectors in those machines. 

Comments from users of Front Page for 
unexpanded and expanded QLs would be 
welcome; in the continued absense from 
the QL scene of the author of the program, 
it may be possible to pool experience and 
help some users get their printers working 
properly. 


Leyland, 
Lancs PR5 3NA. 
Tel: 0772 454328. 


Greenweld Electronic Components, 
443 Millbrook Road, 

Southampton SD1 OXH. 

Tel: 0703 772501/783740 


J & N Bull Electrical, 
Dept. MM 

250 Portland Road, 

Hove, Sussex BN3 5QT. 
Tel: 0273 734648/203500. 


ASSEMBLER 
WORKBENCH 


A complete set of tools for the 
machine code programmer. 
Combines assembler, monitor and 
screen editor. Dual screen to assist 
debugging of graphics programs, 
can operate on RAM or disc files. 
Compact and easy to use. 


An exciting ‘Scramble’ game. 
Maneuvre your ship through alien 
territory, gain points by hitting 
targets with bombs and missiles. 
Your final objective is to destroy the 
mothership with an accurately 
placed bomb. A fast addictive game 
with excellent graphics. 
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Ron Massey gets to grips 
again with Quill and 


printers. 


acob Lewin would like 
to be able to number 
Quill pages in excess of 
its maximum 254-page 
starting limit. This subject has 
been covered several times in 
Psion solutions, Quill will not 
allow you to start your page 
numbering beyond 254 but will 
continue to count until you run 
out of memory. 

There are three ways to 
circumvent this problem, two 
of which involve using separate 
programs. The first solution 
requires two passes through 
the printer; the second only 
one. Neither of the first two is 
an elegant solution but will get 
the job done. 

Using listing ene, print a 
document in two stages: first 
print the document with the 
upper and bottom margins set 
so that the block of text 
appears in the middle of the 
page. Re-load the paper into 
the printer — tractor feed paper 
is best for this system. A 
second pass is used to number 
the pages and add any headers/ 
footers at the same time, 


This simple program can be 
modified to suit almost any 
supplementary printing re- 
quired but will probably need 
experiment to get the header, 
footer and paper positioning 
correct. The CHR$ codes are 
for Epson-compatible — prin- 
ters: if your printer requires 
different codes, substitute 
them where appropriate. 

Line 110 sets the page length 
formatting to 66 lines with 
CHRS(66). Line 120 sets the 
page number counter to “17 
Line 140 is a pause and can be 
deleted if you have faith that 
you will not suffer from paper 
jamming. 

Line 150 prints the header, 
followed by a Form) Feed. 
Paper length in line 110 should 
be set so that the paper is 
positioned to the first line of 
the footer. beneath the block 
of text. 

Line 170 is the footer, follo- 
wed by the current page num- 
ber. The procedure, Set— 
line_spacing is a FOR loop 
and should be set so that the 
paper is positioned at the top of 
the next page. This loop allows 
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four lines between the last line 
of the footer and the beginning 
of the next page and its header. 

The last line in the repeat 
loop increments the counter 
and returns to the beginning of 
the loop and pauses until a key 
is pressed. 

Listing two will print a —lis 
file, adding headers and foot- 


Listing 1: printer driver 1. 


140 OPEN#d,serd 


‘VSION: 


very large documents is to use 
The Editor and its companion 
utility, EDT__PRT. 

If you have produced the 
document in Quill, print the 
document to a file and load it 
into The Editor with the RD 
command. This will provide 
page breaks and all that is 
required is that you run 


11@ PRINT#d, CHRS (2795 "C" ;CHRE CHB) 


120 1 = 1 

13@ REPeat loop 

1d@- aS = INKEYS(~1)> : 
15a PRINT#d,to 24, 
144 
174 PRINT#d,to 14, 
sea Set_line_spacing 
194 n = n+l 

200 END REPeat loop 
Zig ¢ 
220 
23a FOR i = t to d 
240 PRINT#4 

250 END FOR i 

260 END DEFine 


REMark A pause for each page. 
‘This is a headers! 

PRINT#d, CHRS(12) 2 REMark 
"This is a footer 


Form Feed 
on page "5 Tr 


DEFine PRCiCedure Set_line spacing 


Listing 2: character generator for importing into Quill. 


1 
2 
4 
6 
7 
& 
9 
1 


FOR i=@ to 255 
PRINT#3,1!!CHRSCiD, 

END FOR i 

CLOSE #3 


FOR i=2% to 255 
PRINTHS, i! !CHRS<(i) 

9 END FOR i 

@ CLOSERS 


ers where appropriate, This 
program requires that you do 
three things: 

1. Use Quill as you would 
normally. including any font 
and translate changes. 

2. Format your Quill docu- 
ment to “O" page length. 

3. Set the footer and header 
to “NONE”, 


There is only:one mandatory 
input required by this program, 
the number of lines of text per 
page. Other than this the page 
position from the footer to the 
top of the next page is determi- 
ned by the number of lines 
moved by the form feed in line 
24, 

If you have the program 
available the best and third 
alternative for page numbering 


OPEN _NEWHS,mdvi_Testi_lis 


OPEN_NEW#3,mdvi_Test2z_lis 


EDT__PRT. In addition to 
page numbcring, this method 
provides you with as many 
translate characters as the OL 
and your printer are capable of 
producing. 


A query has arisen from a 
comment made by Peter 
Forbes in the July, 1988 Open 
Channel with regard to Quill 
embedded (hidden) printer 
control codes. 

The letter says: “He men- 
lions spurious characters 
added to the imported text. 
Since removing the cartridge 
containing the printer driver 
cures this, presumably they are 
added, as control codes, by the 
printer driver when the text is 
‘printed’ to a file, Could this be 
a way of persuading Quill to 


produce ASCII files?”. The 
answer, in a word, is no. As 
proof of this. type-in listing 
three. 

This program will produce 
two files. Testl—lis is the en- 
tire table of ASCII characters 
beginning with a CHR$ num- 
ber, followed by two spaces 
and the character. Test?__lis is 
identical, except that it begins 
the CHR$(29) —- CONTROL 
SHIFT |. 

Start Quill, press <F3> 
<0> <F> <I>, You will then 
be asked to type-in the name of 
a file to import. Load each of 
the two files in turn into Quill. 
The first file will load to 
CHR$(13), perform a forced 
page break and continue im- 
porting up CHR$(26) and then 
abort the import at CHR$(27), 
the ASCII abort code also used 
as the QL ESCAPE key. 

Test2_lis will begin with 
CHR$(29) and import all the 
character codes Quill supports. 
Characters upwards from 192 
will not be displayed in Quill 
but will be shown as blank 
spaces. So far as Quill is con- 
cerned the ASCII characters 
do not exist. 

A document printed to a file 
without a printer driver inclu- 
des Quill codes for character 
changes. If you have a printer 
driver available the codes gen- 
erated by Quill are converted 
to whatever definitions you 
have made in your printer 
driver. 

The content of a —lis file 
depends on your printer driver 

or solely on Quill if you do 
not have a printer driver avail- 
able. An example of the type of 
tile produced by my driver is as 
follows, 

The codes shown here as 
CHIR$ numbers are the charac- 
ters entered into a —lis file as 
characters. They are shown 
here as codes because neither 
Quill in which this is being 
written, nor printers, will repro- 
duce the characters required. 
Characters shown in quotes are 
the characters required: 


27" @" 27 81" 1 27M” This is 
an Elite line. 13 

27 “G™ This is a Bold line, 27 
“H™ 13 

27-1 This is an underlined line. 
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JOLNTIONS: 


27-0 13 

27 P 27 15 This is a condensed/ 
superscript line. 18 27 “M™ 13 
27 4 This is an italics/subscript 
line. 27 “5” 13 


The above prints as: 


This is an Elite line. 

This is a Bold line. 

This is a condensed/superseript line. 
This is an ttalics!subseript line, 


The group of the first seven 
characters in this file is the 
printer preamble code. The 
first line of text Is offset in the 
file by the length of the first 
group but, because the printer 
recognises the group as control 
codes, printed spacing is as 
seen in Quill. The last charac- 


ter on each line is the 
CHR$(13) end of line/newline 
code. 


All the control codes at the 
beginning and end of each line 
are embedded codes, indicated 
in Quill only by a change of 
typeface and/or colour. Once 


you have printed a document 
to a file, because they contain 
all of the information required 
by a printer, data from Quill 
lis files can be sent directly to 
a printer by typing: 


COPY —N drive_filename- 
lis TO seri 


The COPY__N command 
performs the same function as 
a COPY command, except that 
the former strips off file header 
information. Both commands 
have the same effect with JS 
QLs but can produce spurious 
characters from JM or AH 
machines if the COPY file to 
ser Is used, 

Another QL enthusiast wri- 
tes to say that he has encoun- 
tered several Quill-related 
problems ~— irrecoverable 
def_tmp files, importing a 
—lis file, and confused Microd- 
rives. 

In order, the Quill mechan- 
ism for enabling users to pro- 
duce documents larger than the 


Listing 3: A slightly more sophisticated header 
and footer printer. 


1 OPEN_IN#3, raml_temp_lis 
OPENAd, sert 
REMark 
REMart 
REMark 


CHRS(S? = 9 


Tm Wr 


7? REPeat sn_loop 


INPLIT "Number of text lines per page ! 
' CLS § NEXT in_loop 
INPUT "Text to be printed im header 
"' Y headerg=" " 
INPUT "Text to be printed if footer : 
ifooter$=" " 


TF Inumé = "" 
IF headers = 


IF footerg="" 
EXIT in_loop 
= END REPeat in_loop 
Posation_text 
REPeat prt_loop 
IF EQF CHS) 
INPUT#S, a% 


' CLOSE#S ! 


Set length of Form Feed 

lines to bring paper to 
the top of the nent page. 

nl to pgnum = 1% flgl = @ & wdlin = % 


"slums 
i "Gheader$ 


“sfooters 


EXIT prt_loop 


IF flgi=@ + PRINT#4,TC post, headers 


PRINTHA\\ 
flgi = 1 
END IF 


PRINTHd, CHRRCS7 YE C'S CHRE CS) 


PRINTHd, a®; 
n= nti 
TF n = 


nel 


lnumnt 


PRINT#d,3\ TO post, footert;" 
flgi 


Porum = pgnaumth ¢ 
PRINT#d ,CHES( 1235 
END TF 
33 END FEPeat prt_loop 
Sd PRINTHI,TO posz, footers 
33 PRINT “tnd of File” 


“Ss pornum 


= ¢ 


7 DEFine PROCedure Positian_text 


3 REMark Elite 
‘ REMark Pica 

posi = 
posi = 

END DEF ine 


Printed with this utility program. 


es chars wide 
= 8 chars wide 
INTs fwdlin/2)-cL ENC header B47 
INTE CwadlinésS>-INTCLEN( footeréi/2 


d> LENG pegruims—T) 


Cuill's page length set te ®, 


Upper margen seé to , faonter and header to None 
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** HEADER PRINTED W 


ITH THIS LITILITyY ## 


1 GPEN_IN#S, rami_temp_lis 


2 OPEN#d, seri 

3 REMark Set length of 
4  REMark CHRS(S) = 5 1 
5 REMark the top of th 
6 n=l i pgnum = 1: flgt 

7 REPeat in_loop 

& INPUT "Number of text 


9 

10 
11 
12 
13 
1d 
15 
16 


oy 
22 
2 


24 


A footer for an S-line 


4* HPADFR PRINTED WI 


IF lnum® = "" : CLS 
INPUT “Text to be pr 
. IF header@ = "" 2 
INPUT “Text to be pr: 
IF footer$="""_tfoo 
EXIT in_loop 
END REPeat in_loop 
Position _text 
& footer for an S-lire 


s* 4EEDER PRINTED bt 


REPeat prt_loop 
IF EQF(#3) © CLOSE#S 
INPLIT#3, at 
IF flgi=@ : 
PRINT#A\\ 
flgi = 1 
END IF 
PRINT#O, GHRSC 2794 "C"Y 


PRINT# 


Se kL 


& Tooter for an 


PO RPOTAVEY WT 


PRINT#4, a; 
n= n+l 
IF n= 

n= 1 


Livums 


PRINT#O,\\ TO pos2 


pgnaum = puyraimet & 
PRINT#HS,CHRS( 12); 


Functionally, 
a large 
document 
can be 
compared to 
an audio 
cassette. 


Form Feed 

ines to bring paper to 
é next page. 

= @ i wdlin = 96 


lines per page = “slnum$ 


document. Payer 1 


TH THIS WEILITY #* 


! NEXT in_loop 
inted an header = "theader$ 
header#=" "' 
inted in footer ! "sfooters 
terg="_" 
SO CUumET te Faget 
TH THIS HITILITY 4x 
+ EXIT prt loop 
4,TO posi, headers 
CHRE(4) 3 
rien cd. Faget 7 
TH THES Tul: Se 
» footer$;" "+r panum 


flgi = @ 


available memory is to write a 
temporary file as a sort of 
scratch pad. As you move 
through the file for editing or 
whatever. Quill keeps track of 
your position relative to the 
temporary file and updates 
when necessary, 

Functionally, a large docu- 
ment can be compared to an 
audio cassette. If you pull a 
length of tape from the cassette 
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VSION:- SOLUTIONS: 


the free tape outside the casset- 
te represents the file in mem- 
ory and the remainder of the 
tape inside the cassette is the 
def_tmp file. 

Maintaining the same length 
of free tape, as you wind the 
cassette in either direction the 
data on the free tape changes 
rclative to cither end of the 
remaining tape. The Quill 
mechanism for increasing the 
QL storage capacity for large 
documents effectively works 
very much in this way. 

When you save a large docu- 
ment, Quill sorts out the mem- 
ory and def_tmp resident 
parts of the file and assembles 
it into a continuous document, 
If there is insufficient memory, 
re-loading a document causes 
Quill to open another 
def__tmp file immediately. 

Because of the structure of a 
def__tmp file and since it is not 

legitimate Quill document, 


usually 
Editor 


and a 


cerns importing 


OL World. 


irrecoverable by 
means other than a file editor 
such as the Ark Spy or The 
considerable 
amount of manual editing. 
The second problem con- 
a —lis file 
using M. Becket’s printer driv- 
er for the 8056 which appeared 
in the September, 1986 issuc of 
If a document is 


not include characters which 
Quill recognises as program 
commands. See the spurious 
character problem 

No immediate answer to the 
final problem, confused 
Microdrives, springs to mind. 
This correspondent says that: 

“On loading a document 
from one cartridge in mdv1_., 
then attempting to merge or 


any 


No immediate answer to the 
final problem, confused 
Microdrives, springs to mind. 


printed to a file using the FX80 
driver, the document can be 
imported into Quill, Quill will 
not import, load or merge a 
—lis document if the 8056 
driver is used. 

First, the load or merge 
commands require a Quill- 
—doc and its attendant format. 


import another document from 
a different cartridge, also in 
mdvl__. On returning to the 
original cartridge, an error rc- 
port “Corrupt” is written to the 
header of the document. This 
has the effect of rendering the 
file inaccessible from Quill.” 


Quill will always refuse to load, 
import or merge it. Once Quill 
has lost its place in the file it is 


Import, 


OL SUPERTOOLKIT II by Tony Tebby 
THE ULTIMATE OL ENHANCEMENT 


Over 118 Commands:— Full Screen Editor, Key Define Print Using, 
Last Line Recall, Altkey, Job Control, File Handling, Default Director- 
ies, Extended Network. 

16k Eprom Cartridge Version 
Configurable Version on Microdrive 


(ef 24,15d 
t@£ 23.000 


MIRACLE SYSTEMS PROD 


QL Expanderam Ok board, fit your own drams € 23.00d 
‘OL Trump Card 768k { Toolkit Il etc} .. © £269.90b 
OL Trump Card 512k (Toolkit lkete) (2 €213.90b 
QU Trump Card 256k (Toolkit II ete) @ £149.50b 
OLExpanderam 512k Thru Card £133.40b 
OL Expanderam 256k Thru Card @€ 80.50b 
Ora.1s to suit above 41256/15 .... < @E B.05¢ 
QLModem (£ 48.30d 
QL Centronics Printer Interface ff 28,75d 


QL HARDWARE 


Single 3.5" Disc Drive & (Own PSU) . @€ 97.758 
Dual 3.5" Disc Drive & (Own PSU} (1 £188.60a 
Q POWER AEG, The only real solution to your OL overheating 
(switched mode power supply run cold) @£ 23.00 
OL Keyboard Membrane G@£ 11.500 
QEP Hl Advanced Eprom Programmer . . £121.90d 
Care Eprom Cartridges each fro §.75¢ 
Eprom 27128 250n/s 16k mmo She 
ULACHipZX8301 . tf 15.64 


MAGNETIC MEDIA 
Microdrives {each} sige Ahh 1,986 


.E  61¢ 
(r£ 13,80¢ 


35" (each) dis dise ........ 
3.6" (10 of) d's discs 


SOFTWARE 


PE SFA RD, crecoveccsau neato iectiietecats .e£ 45.00d 

FOUNTEDSS... f€ 15,00c 

FOUNTE XT 88 ef 25.00c 

TEXT 87/FOUNTED 89';FOUNTEXT 88 . rf 79.00b 

2488 PRINTER DRIVER. f£ 15.00c 
| HOWTOORDER: =| TO ORDER ALL PRICES INCLUDE VAT 


By Post. Enclose your Skee he made payable to CARE Electroncs 
Or use ACCESS/VISA Allow 7 days for delivery 


however, 
with any ASCII file which does 


I tried duplicating the prob- 
lem with several document 
types, after dusting my 


will work 


TONY TEBBY SOFTWARE (QJUMP) 


QPAC |! new from the house of QJump, a totally new version of 
QRAM and OPAC. Available September 89 
Please phone for further details. 


OFLP (Micro/P disc interface upgrade) ............... (o£ 14.95d 
QMON II Microdrive..... GE 19.95d 
QMED {Medic disc interface upgrade) ; enn f£ 14,950 
QPTR Pointer Interface m/drive ....... ‘ (o£ 34,.50d 
QPTR Pointer Interface + 3,5" disc , (af 29.900 
OTYP Type/Spell Checker ... (£ 29,90d 


ZITASOFT SOFTWARE by Steve Jones 


LOCKSMITHE copies M/DRIVE — M/DRIVE @€ 11,506 
4MATTER + LOCKSMITH copies M/DRIVE — DISC @€ 23.00c 
The above programs are not for use in the UK. 

SHRIVEL memory shrink prog user definable ie 128k or 192k or 256k 


etc - laf 6.90c 
TOOLCHEST utilities to allow the creation of customised mdv doctor 
prog F - E 11,50c 


SIDEWINDER — High resolution printer driver prints full screens 
or parts of screens from postage stamp size to large banners. 
Prints sideways, invert, scale, mirror, text insertion. 


fo 17.25¢ 


SIDEWINDER PLUS - (for expanded QL's) includes ali the 
features of above, PLUS multiple label printing, desktop 
publishing files and printer driver for 24’ pin plus LC 10 and 3= 80 
colour printers. (Please state 3.5” disc or M/D) (w£ 23.00¢ 
Upgrade to Sidewinder PIUS............ cece - @£ 8.05¢ 


MONITORS (Price including lead) 


Philips BM7502 Green Hi-Res . . @£ B3.93a 
Philips CM8833 Colour Med-Res r£2714la 
Philips AV7300 T¥/tuner for above ............- “26 69.00b 
READYMADE LEADS 
RGB OL to Phono ©... . Bwniciae CE, BSS 
RGB 8-6 pinDIN.. ‘ Latte iaeaviawad . @E— 7.136 
RGB 8-7 pin DIN {Hitachi} : ee fa— 7.13¢ 
RGB B-7 pin DIN (Ferguson) , sie OE PAI 
RGB& pinto SCART (Euro) ........-. nee tf 11.50¢ 
6-way PCC 25way ‘D’ (Printer-See 1). .ccccns eects fe 985 


LD a a a a ae ea / 
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infrequently-used Microdrives, 
and the problem would not 
rear its head even once. I used 
the three loading commands, 
Load, Merge and Import — the 
latter for a —lis file of the 
document — for the appropriate 
file types, from different car- 
tridges, all from mdvl— and 
everything worked as cx- 
pected. 

If I had to make a rough 
guess [ suggest that it is possi- 
ble that, in sequence, this is 
what may have occurred. A 
—doc was loaded from car- 
tridge one. An attempt to 
LOAD a —_lis file may have 
been made from cartridge two, 
upsetting the Quill balance by 
the attempt. The writer then 
attempted to LOAD another 
—doe file, pushing Quill over 
the edge, so to speak, 

I would be interested in 
hearing from other readers 
who may have experienced this 
problem. Please include a de- 
tailed account of the sequence 
of events. 


OPEN 
Sam-5pm Mon-Thu 
Sam-4pm Fri-Sat 


Hy 
MW N ex 
800 ST ALBANS ROAD, 
GARSTON, WATFORD, 
HERTS. WO2-6NL. 
Tel: 0923-672102 


Q POWER 
REGULATOR 


NEW 


SIDEWINDER 


Text®’” 


NOW IN 
STOCK 


Please add carriage 
a=£11.50 b=3.45 
c=£138 d=£2.30 


he information given in the Janu- 

ary 19, 1989 QL World with 

regard to disc drives has settled 

many problems before they 
arose. There is, as always, some further 
information on this subject which may 
interest many readers contemplating this 
desirable type of expansion. 

Prices for disc drives, especially the 
bare ones, are falling all the time, as well 
as disc prices. To benefit from this it is 
necessary to be somewhat enterprising in 
regard to the enclosure or case. If you can 
bend a piece of metal it is easy or you can 
buy a plastic case to house the drives. A 
simple hole needs cutting in the front, plus 
a hole for the wires. A power supply 
can be squeezed in, especially if the 
transformer is housed in the wall plug. 

Bare new 3.25in. drives vary from £15 
for 80-track, single-sided to £50 for 80- 
track, double-sided. Cheaper ones, again 
new, are Sony drives for £5 each. The 
snag with them are that they have only a 
24-pin connector without the information 
on what pin does what. 

Steer clear of the 1.6MB high-density 
drives unless you have very detailed 
knowledge. They look the same, have the 
same connections and appear to work 
when plugged in. On the ones | have tried, 
| get FORMAT FAILED. This is due to the 
motor running at a higher speed with the 
WD 1770 chip in the interface on the QL 
being unable to handle the data. A few QL 
interfaces from one manufacturer have a 
different chip, so the high-density drives 
work correctly. You cannot swap chips as 
there are 28 pins on the WD 1770/1772 
and 40 on the other chip. 

Hard disc systems are now starting to 
appear both from Miracle as a plug-in- 
and-go unit and from Rebel Electronics, 


DISCS2 


Dennis Briggs 
has more to add 
on discs, 
including a case. 


following what others have done before, 
calling them fold-over boards or some 
similar name. Some enterprising QL own- 
ers have even built their own from 
Veroboard back to back and on rare 
occasions they work. 

To cure the crashes due to fitting the 
long dangly bits and at the same time 
prevent the QL crashing, put some metal 
round the expansion. It is not feasible just 
to wrap all the electronics in baking foil as 
it will short everything. It is easy to spray 
the inside of all plastic cases with a nickel 
screening spray. Use a meter to check 
that the metal layer is continuous; then, 
when dry, give it a coat of lacquer. 

Now the easy part. Spray the back of 
the board with varnish and, when dry, 
stick self-adhesive copper foil to cover all 
the tracks. If in doubt put some Fablon 
over the tracks and then the foil. This puts 
a ground plane under the board. The 
much-maligned but still-loved Medic 
board had a ground plane in the middle 
layer. That is where it should be. 

QL hardware-based crashes can also 


Plastic Box 228x158x64 
Inver ted 


3.45 inch 
Oise Or ive 


A 3.5in. disc drive case. 


as either a complete unit or parts. There 
are also a very few of the old CST hard 
disc interfaces, most of which have had 
minor or major surgery for one reason or 
another. 

The main problem with all these expan- 
sions is that the QL goes from Eurocard 
size to something which is long and 
unwieldy. To overcome the problem, 
Rebel has introduced a backplane card 
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POWER 
SUPPLY PCB 


be reduced to nil by using HCT logic chips 
in the QL instead of the LS variety, putting 
a 4.7uF tantalum capacitor on every 
fourth QL RAM chip and connecting the 
ground of the 68008 CPU to the ground of 
the 8301 with a O.1uF capacitor. An 
improved power supply then makes the 
QL rock solid. 

| have lost files from disc and cartridge 
and also lost Archive files. In all cases 


they have been retrieved by using DIS- 
CED to look for what is on the disc with a 
little SuperBasic plus Toolkit 2 to get it 
back. 

Lost Archive database files are much 
easier as | use the Quanta — free to 
members — program to close the file or 
the DP The Editor to make some sense of 
it. Use RU to read it in; then mark and 
delete the block at the top until the start of 
the first recognisable entry. Go to the 
bottom and do the same on all the 
ordering data. Then look at the records, 
find what is needed and what is rubbish 
then use the commands to get rid of the 
rubbish. Split the lines into suitable 
lengths, and again get Editor to take out 
what is not needed, such as the non- 
ASCII stuff. What you are aiming at is the 
field names, at the top in quotes, with a 
comma between, then each record on a 
separate line with a chr$(10) at the end. If 
you do not understand, just export a __dbf 


The problem with 
expansions is that 
the QL goes from 
Eurocard size to 
unwieldy. 


file to disc and read it back into Editor. 
Whatever you put in that format, Archive 
will swallow it if it has _lis on the end and 
is IMPORTED. It can even be persuaded 
to accept rubbish. 

Example of a file suitable to be imported 
into Archive: 


“Fname$”,“Surname$”,“street1$”, 
“street2$” Town$" chr$(10) 
“Mary”,“Freeman”,“15 Wood Close”, 
“Arman's Way”,“Winsop”chr$(10) 
“Fred”,"Bloggs”,"1 Hampton Court", 
“Crab Boulevard” ,“Clingtown"chr$(10) 
“Jenny”, “Smith"," ",""," "\“ "chr$(10) 
chr$(26) 


Notice that there must be a record, even 
an empty one, for each field name. 

One final point often overlooked is that 
if the Archive database file is re-ordered 
several times the total file length can 
become very large, as the ordering datais 
retained in the file. When you have the file 
in the order you wish, EXPORT it, 
perhaps to a RAM disc, and then import it 
back in. The order will be exactly the same 
as the original but the ordering data is 
removed, thus shortening the file. 
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PAPERWORK 


takes a 


Quantum Leap 


riday is paperwork day. I ama 
technical liaison officer for a 
major television manufacturer 
and travel a large part of eastern 
England from the Humber to the Orwell. 
At the end of each week and at certain 
times throughout the month my company 
expects returns which reflect my activity 
for the. preceding period. — .expense 
claims, engineering .reports, Spares re- 
quisitions, itinerary, holiday forms and so 
on, Much of the stationery consists of 
forms. which .require filling in at the 
designated spaces by the sender and 
memos and headed letter paper. Some of 
the small administrative forms are usually 
produced on a duplicator which I have 
mimicked so that blank paper is all I need 
to stock. 
In the days before the QL. took over I 
. fought-a lonely battle with an office-size 
typewriter and a.large bottle of correction 
fluid. Even in- my novice days with the QL 
Tused Quill for everything and totalled my 
expenses in my head, always getting them 
wrong. It was not.long before I decided 
the computer should take the strain. 
Afficionados of the OL, from whom I 
sought. advice, all agreed that Archive 
would be much more suitable for my work 
and’‘so.I burned: some. midnight oil, 
pestered fellow Quanta members, and 
eventually produced some very workable 
programs in Archive to retrieve, store and 
print information. 


Daisywheel 


The printer I use is a Triumph-Adler 
TRD7020 daisywheel type which gives 
excellent clarity, I delved into the printer 
driver program and got it to print charac- 

_ -terssuch as 2, »fR and yw, which are essenti 
in.my engineering reports. I also had the 
computer hold my expenses, much to the 
relief of the accounts department. 

The QL is aJM°ROM type with Trump 
Card,.twin 3.5in. disc drives and a Prism 
OL14 colour monitor, though I started, 
like everyone else, with a bare 128K and 
the Microdrives. The. real-time clock 

circuit is modified to take battery back-up. 

“This is 99 percent successful and goes awry 

-- only if the computer-hangs up for some 

—. Yeason, The entire system is mounted ona 
workbench from. MFI, ‘cables are tidied 

>. “along-the back of the-bench. 


oe 


roe 
Siem 


The printer is moufted on. a small 
platform made of Contiboard to allow 
cables to pass underneath to. the QL. 
Another - platform raises the monitor 
slightly ‘and permits reference books, 
papers and notebooks to occupy the 
bench-top underneath, where they are 
tidy yet still handy. [ have set the monitor 
to oneside, on my right, as I find neckache 
and eyestrain are less with it in this 
position. Power units for the computer 
and disc drives are tucked in the kneehole. 


The OL was notorious for hang-ups 
because of the heat and other problems in 
the 5V regulator. One obvious answer is 
to provide a larger heatsink for the device 
and to. that end I have fabricated a 
heatsink from some aluminium channell- 
ing. It runs the whole length’ of. the 
computer’ beneath the rear edge and 
replaces the feet used to tilt the keyboard. 
I-also found that the regulator was not 
fitted with by-pass capacitors and. they 
have been added to suppress.any tendency 
to oscillate. 

When I added a Trump Card I found the 
regulator on that was not provided with a 
very: efficient means of conducting the 
heat generated. To overcome the occasio- 
nal hang-up when first used for lengthy 
periods I made. a bottom. cover for the 
Trump Card module which doubled as a 
heatsink for the regulator IC. The regula- 
tor. was re-positioned. underneath the 
printed board so that its metal spine could 
make intimate contact-with the heatsink/ 


The system — QL, Trump Card, twin drives, printer, monitor. 


Graeme Young. 
lets Archive take 
the strain of his 
business 
expenses and 
weekly office 
paperwork. 


bottom cover. A coat of matt black paint 
improves. the radiation efficiency and 
therefore helps to dissipate heat. and the 
finish matches the rest of the Trump Card 
module. 


Trump Card 


Recently I learned that there is a 
modification for Trump Card which is 
successful in eliminating hang-ups and I 
shall be installing it as well. According to 
Miracle Systems, the eight 560-ohm resis- 
tors,. mounted in a row alongside an 
integrated circuit in the top right-hand 
area of the TC circuit board, should be 
lowered in value to 330-ohms each. This 
can be done by bridging each 560-ohm 
resistor with ‘an: 820-ohm, if you do not 
fancy de-soldering the very fine tracks. 

Finally I re-designed the power supply. 
The: original ‘Sinclair unit is probably not 
totally adequate once Trump Card is 
installed — it runs very hot. For about £20 
and in.a few hours I made a unit which-is 
well-regulated, ruris. very cool and has 
eliminated hang-ups due to power supply 
problems. 

With the hardware operating satifac- 
tory I.began to change many of the files 
from. Quill 2.3-to Archive 2:3. Monthly 
expenses seemed to benefit the most from, 
the transfer.and had the added attraction 
of being stored on dise in a form readily 
exportable to Easel and Abacus for some 
fancy processing if required. Most of the 
other conversions to Archive followed 
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"MONPRINT” 


proc comment 


print “SET PRINTER LINE SPACING TO 1/8TH INCH - DIL PIN 7 UP." 


print 


print “Enter month (1 to 12) for expenses: “;: 


;* 


select month=mon 
print 

print "Comment 
print "Comment 
print "Comment 
print “Comment 


1 : input Comment1$ 
2 
3 
4 
print "Comment 5: " 
6 
7 
8 


: input Comment2$ 
: input Comment3$ 
: input Comment4$ 
: input Comment5$ 
: input Conment6$ 
: input Comment7$ 
: input Comments8$ 


print “Comment 
print "Comment 
print "Comment 
endproc 


proc form 
cls 
comment 
title 
init 
all 
item 
endal] 
hardco 
display 
endproc 


proc hardco 

Jet gap=18-(count()*2) 
space;gap 

let Gtot=Htot+TPtot+Etot+Ttot+Ptot+Stot+Mtot 
let Gtot$=str(Gtot,0,2) 
Jet Htot$=str(Htot,0,2) 
let TPtot$=str(TPtot,0,2} 
let Etot$=str(Etot,0,2) 
Jet Ttot$=str(Ttot,0,2} 
let Ptot$=str(Ptot,0,2) 
Jet Stot$=str(Stot,0,2) 
let Mtot$=str(Mtot,0,2) 


Iprint tab (46-L);Htot$; tab (67-L);Etot$; tab (78-L);TPtot$; tab 
(89-L);Ttot$;tab (101-L);Ptot$; tab (111-L);Stot$; tab (122-L); 


Mtot$; tab (133-L);Gtot$ space;10 
lprint tab 5;"#1; ";Comment1$ 
Iprint tab 5;"#2: ";Comment2$ 
Jprint tab 5;"#3: ";Comment3$ 
Iprint tab 5;"#4: ";Comment4$ 
Iprint tab 5;"#5: ";Comment5$ 
Iprint tab 5;"#6: ";Comment6$ 
Iprint tab 5;"#7: ";Comment7$ 
Iprint tab 5;"#8: ";Comment8$ 
endproc 


Jet Htot=0 

Tet Etot=0 

let TPtot=0 
Jet Ttot=0 

let Ptot=0 

let Stot=0 

Jet Mtot=0 

let Gtot=0 

endproc 


proc item 

lprint tab 4;date$; 

Iprint tab 14;detail$; 

let L=len(Amount$): let Amount=val (Amount$) 


if Type$="H": let Htot=Htot+Amount: Tprint tab (46-L);Amount$; 


endif 


if Type$s"E": let Etot=Etot+Amount: Iprint tab (67-L);Amount$; 


endif 


if Type$="TP": let TPtot=TPtot+Amount: Iprint tab (78-L);Amount$; 


endif 


if$Type$="T": let Ttot=Ttot+Amount: Iprint tab (89-L) ;Amount$; 


endmf 


if Type$="P": let Ptot=Ptot+Amount: Iprint tab (101-L);Amount$; 


endif 
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input mon 


rapidly. Now the only files in Quill are my 
memos and company letters. 

Fourteen database files resulted from 
the changeover and each has an attendant 
program. They are listed in a loose-leaf 
notebook for quick reference and show at 
a glance the file name, field names, 
program name and the procedures. Some 
of the procedures are used throughout the 
programs, such as ‘sp’ which does-a line 

sere feed. The note- 

book is. vital.— 

my memory is not 
good, 

Two of the. prog- 
rams. work particu- 
larly well. Monthly 
expenses, which has 
the file name “month- 
ex”, and. its attendant 
set .of programs called 
“monprint”, . . and 
“hotel” which was 
originally. a database 

of hotels in which I 
could: stay. in .my 
territory and 
which had confer- 
ence facilities: 

The latter has 

now grown into a large file with a set. of 
programs for printing reservation confir- 
mations for company and private use and 
the hotel address on an adhesive label or 
directly on the envelope, All addresses for 
printing on to labels and envelopes I have 
standardised to start at Tab 40. 

Monthly expenses are submitted ona 
pre-printed form which has windows for 
name, number, department and columns 
and rows of boxes for the individual 
expense items. The layout is such that the 
bottom. right-hand. box contains the final 
amount which isthe sum of the figures in 
the column above it and the row to the left 
ofit. Each expense is entered into.a record 
starting with the month —- 1 to 12— then 
the date of the expense, followed by brief 
details, the expense category, and the 
amount in decimal, When this is comp- 
lete, the direct command <form is en- 
tered and this brings up a screen which 
asks for up to eight comments to be 
printed in the box provided on. the ex- 
pense sheet. It begins by asking for the 
number of the month, then the comments. 
When this is complete the printer starts. A 
warning isprinted reminding me to set the 
printer to Yin. line spacing, 

With Hotels_dbf a similar thing. is 
done. The hotel name, address, telephone 
number, and star rating is entered along 
with short comments about accommoda- 
tion, food, cost of stay and what lecture/ 
conference facilities there are. The prog- 
ram “hotprint” contains procedures. for 
printing a confirmation of a ‘company 
booking or a private one and: for label/ 
envelope printing. Programs one-and two 
show the program listings and the field- 
names for the relevant database records. 

For memos: and ‘letters. I use. Quill, 
which | find: most: acceptable now that I 
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Continued from Page 19 


if Type$="S": let Stot=Stot+Amount: Iprint taf$(111-L);Amount$; 


run it with the DP Lightning. A template endif 
for cach is stored on the disc containing if Type$="M": let Mtot=Mtot+Amount: Iprint tab (122-L};Amount$; 
the _docs. Printer__dat is copied to ram1 endif 
during boot-up; the Quill version used is Iprint tab (133-L);Amount$ 
sp 


configured specially for this and the saving 
in wear and tear on the drives 1s consider- 
able. It is also faster. Once the memo or 
letter is written it is saved on to drive 2. 
The words of the prompt, “save 
flp2__memo__doc” are altered by adding - 
a serial number after ‘memo’, so that it 


endproc 


proc sp 
textpr;"" 
endproc 


proc space;y 


now reads “save flp2_-memo45__doc”, let 2=0 } 
The same thing is done with letters and I while 2<y 
keep a register of memo and letter sp 
numbers against their subject matter. let z=2+1 
The TRD7020 printer will do graphics, endwht le ‘ 
endproc 


though not from Easel, and the following 
program can be used to dump a screen, 


proc textpr;a$ 


though I prefer now to use my old Serial Iprint a$ 
8056 which I keep connected and installed endproc 
in the bottom drawer of the workbench. proc title 
The Triumph-Adler will take about 20 Iprint tab 53;"G.M.YOUNG."; tab 80;“TECHNICAL” 
minutes to complete a screen-dump, space ;2 
whereas the 8056 does the job in about Iprint tab 53;"200134"; tab 80;"3348"; tab 110;date(1) 
three minutes. This process is very hard on space ;4 
: endproc 


the ribbon as it uses the full-stop charac- 
ter. When I used the daisywheel for produc- 


4A 
Lin 
atts 


ing graphics | remove the ribbon and use a 
sheet of non-smear carbon such as Silk 
Finish or NCR Ulti-max in front of the 
blank sheet. The printing process virtually | MONTHEX__dbf expenses database 
destroys the carbon paper but one sheet of — Specification and export file. ! 
it is very much cheaper than a new ribbon. ; f 
The procedure was first published by D. 


O. Nevill in Popular Computing Weekly — 130 LOCal r$,b$,11.r.c.w.b,z;3 BAUD 220 FOR b=7 TO 0 STEP 1 
for November 6-12. 1986; it assumes the 9600: OPEN #3, serl 230 PRINT #3.18" “u:z= 
use of a serial to parallel interface at 9,600 140 r$=CHRS(27)&CHRS$(51):b$= INT(wi2 4b) 
baud. we *21=131070 240 IFz/2<>INT(z/2) { 
150 FOR r=0 TO 255 THEN PRINT #3.1r$ 

100 REMark *** SCREEN 160 PRINT #3.r$:CHR$(10); ake 

DUMP *** 170 FOR c=0 TO 127 STEP 2 250 AND FOR b 
110 REMark *** OL to TRD7020 180 1=1+2:w=PEEK(1) 260) END IF 

Printer *** 190 IF w=0 THEN 270 END DEFine c: END FOR T: 
120 DEFine PROCedure Dump_— 200 PRINT #3.r$;b$, CLOSE #3 

Screen 210 ELSE 280 END DEFine Dump__Sereen 
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LISTING 2. 


proc comcon 
cls 


print ;"CONFIRMATION OF HOTEL BOOKING (COMPANY) 


print " 

print ;"Date of Arrival? : ": input Arr$ 
print ;“Date of Departure? : ": input Dep$ 
print ;"Requirements? : "“: input Acc$ 
Iprint tab 11;Name$ 

Iprint tab 11;Add1$ 

Iprint tab 11;Add2$ 

lprint tab 11;Add3$ 

Iprint tab 11;Pcode$ 

space;1 

Iprint tab 63;date(1) 

space;4 

Iprint tab 11;"Dear Sirs," 

space;1 


lprint tab 11;"I have pleasure in confirming my recent reservation as 


follows:-" 

space;1 

\print tab 

\print tab 

Iprint tab 20;"Date of Arrival 

\print tab 20;"Date of Departure : “sDep$ 
Iprint tab 20;"Type of Accommodation: ";Acc$ 
space;1 


Iprint tab 11;"For information, I am a Non-Smoker." 
print tab 11;"I will be settling my account by ACCESS card, and in 


look ing! forward” 

Iprint tab 11;"to my stay with you, I am" 
space;2 

\print tab 11;"Yours Faithfully," 

space;4 

Iprint tab 11;".......... Ais eg ee wEeRES 
Iprint tab 19;"G.M. Young. " 

Iprint tab 11;"Technical Liaison Officer." 
display 

endproc 


proc con 
cls 

print ;"HOTEL BOOKING CONFIRMATION" 

print j"SSscesssssssssssssssecsces" 

print ;"Date of Arrival? : "“: input Arr$ 
print ;"Date of Departure? : “: input Dep$ 
print ;"Requirements? : ": input Acc$ 


Iprint tab 15;Name$; tab 74;"35, Fishbone Road," 


\print tab 15;Add1$; tab 74;"“Haddockshead,”" 
Iprint tab 15;Add2$; tab 74;"Nibblingham, " 
Iprint tab 15;Add3$; tab 78;"NB19 5ZE." 
lprint tab 20;Pcode$ 

space;3 

Iprint tab 74;date(1) 

space;2 

\print tab 15;"Dear Sirs," 

Space; 1 


Iprint tab 15;"1 have pleasure in confirming our recent reservation as 


follows:-" 

space; 1 

Iprint tab 20;"Mr and Mrs G.M. Young." 

Iprint tab 20;" " 

Iprint tab 20;"Date of Arrival ":Arr$ 
Iprint tab 20;"Date of Departure :";Dep$ 
Iprint tab 20;"Type of Accommodation :";Acc$ 
space; 1 


Iprint tab 15;"For information, my Wife and I are non-smokers." 
Iprint tab 15;"1 will be settling our account by ACCESS card. In looking 
" 


forward to 

Iprint tab 15;"our stay with you,I am," 
space;2 

Iprint tab 15;"Yours Faithfully," 
space;5 

Iprint tab 

Iprint tab 

endproc 
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For normal everyday correspondence | 
use a multi-strike fabric ribbon which has 
a long life, good clarity, and can be re- 
inked. If [ know a document will be 
photocopied for distribution I put in the 
carbon ribbon; the quality of print from 
this is superlative and it photocopies very 
well, With output from my other printers, 
the Series 8056 and the Brother EP44, on 
thermal paper I take the precaution of 
photocopying anything 1] want to keep. 

Thermal print fades in the light, so 
originals arc always kept in the dark. 
Clear plastic document wallets also react 
with thermal and photocopy papcr, so that 
I never use them unless the top page is 
covered by a blank shect of copy paper. 
Easel will print only to the Scrial 8056; the 
printer driver program is in listing three. 

With Trump Card installed, and Task- 
master plus Lightning running, paper- 
work truly has made a quantum leap. | 
find Lightning an amazing utiity which has 
completely removed any need I once felt 
for something better than Quill, The 
increase in speed and the ability to swap 
from one task to another, or into Super- 
Basic, 1s unimaginably handy. I have one 
caveat; I never invoke the Trump Card 
toolkit as I find it makes the system prone 
to crashes, particularly from inadvertent 
keyboard errors. 


Toolkit 


It could be argued that TK2 is not 
strictly necessary when running the Psion 
suite. The toolkit comes into its own when 
running the Psion suite. The toolkit comes 
into its own when the QL is engaged on 
other work unconnected with the weekly 
returns and the Psion four. It can always 
be called from Basic if one fancies living 
dangerously, but close all open files first. 
The occasional hang-up persists, usually 
associated with cursor movements or the 
Quill command F3 P and so on. I treat 
cursors and print commands with respect. 

Frequently I work away from easy reach 
of home and stay in one of the hotels I 
have booked via the Archive program 
“hotprint™. For those occasions I have 
fitted a JS QL into a bricfcase. Also 
included in the case are a modified power 
supply, a small desk lamp and a four-way 
mains 13A socket block. I carry a 12in. 
monochrome TY, converted for monitor 
usc, separately. At present I am using the 
Microdrives on this portable machine: 
they are surprisingly reliable provided 
they are kept clean and otherwise left well 
alone. The JS has the same regulator 
modifications as the JM and uses a 
modified OL, UK2000 power unit. This 
machine is unexpanded but is adequate 
for most purposes and [| intend to try 
Taskforce sooner or later. 

The bricfcase QL provides a useful 
portable office and it keeps down the hotel 
bar bills as well, As soon as my finances 
have recovered from the purchase of 
Trump Card I shall add disc drives and a 
littke more memory to the outfit as there is 
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proc Hotadd 

Iprint tab 40;Name$ 

Iprint tab 40;Add1$ 

Iprint tab 40;Add2$ 

Iprint tab 40;Add3$ 

Iprint tab 45;Pcode$ 
endproc 


proc info 

Iprint tab 40;Name$;"-";Star$ 
Jprint tab 40;Add1$ 

lprint tab 40;Add2$ 

Iprint tab 40;Add3$ 

Iprint tab 40;Pcode$ 

Tprint 

Iprint tab 40;"Phone: ";Phone$ 
endproc 


proc sp 
textpr;"" 
endproc 


proc space;y 
let z=0 
while z<y 

Sp 

Jet 2=2+1 


endwhi le 
endproc 


proc textpr;A$ 
Iprint A$ 
endproc 


Above and below: a printout using carbon paper instead of ribbon. 


plenty of room in the case. Until then, 
work done on this machine 1s transferred 
to disc when my home office is reached 
and any printing done where necessary. 
I have a Brother EP44 thermal 
typewriter/printer which can be used with 
cither QL. The supply of thermal paper 
for this and the Serial 8056 was beginning 
to dry up but the advent of fax machines 
has reversed the trend and now provides a 
plentiful supply of cheap thermal paper in 
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rolls. For high-quality printing the 
Brother paper in rolls or cut shcct is still 
the best, however, and I buy it whenever I 
see it on sale. 

The EP44 will print on smooth plain 
paper using a thermal transfer ribbon 
costing about £2.75. The quality of the 
print is excellent but the ribbon does not 
last very long and not much use is made of 
this feature. Jt is only a pity that the EP44 
will not do graphics, or so Lam told, Does 
anyone know better? 


With a smile 


Fridays pass with a smile now, the 
drudgery of the old tyrannical typewriter 
transformed by the QL into speedy, 
efficient and pleasurable moments at the 
keyboard, Gone are the ranks of box files 
disfiguring my bookshelves and the reams 
of paper sometimes never disturbed twice. 
A year’s work goes on three discs; another 
three are tor back-up, kept in a neat 
Perspex box in the workbench. Here are 
two OLs carning their keep and giving 
great satisfaction, inasmuch as they do an 
excellent, accurate job quickly. Hence- 
forth, fountain pens are only for signa- 
tures and paper is for feeding into prin- 
ters. 


Listing 3. 
COPY MOV1_GPRINT PRT TO MDV1_ FX80 PRT 
A=RESPR(512) 
LBYTES MDV1_GPRINT PRT,A 
DELETE MDV1_GPRINT PRT 
POKE_W A+400,6960 
POKE_W A+402,0 
POKE_W A+404,6987 
POKE_W A+406,57345 
POKE A+181,50 
POKE_W A+474, 33280 
POKE_W A+496,7 
POKE_W A+500,5 
220 SBYTES MDV1 GPRINT PRT,A,512 


It is necessary either to start up Easel 
with the command BAUD 1200:LRUN 
MDV1__BOOT, or to incorporate the 
Baud 1,200 into the existing BOOT 
program. If you have two printers with 
differing baud rates and use 
Taskmaster, omit the lesser-used BAUD 
command. It can be inserted when the 
need arises by slipping into SuperBasic 
for a few seconds, typing “BAUD 1200” 
and returning to the current program. 
Remember to restore the commonly-used 
baud rate when you finish that task and 
proceed to another. 
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Dennis Briggs 
unveils extra 
features and 
graphics characters 
hidden inside. 


ARCHIVE 
REVEALED 


idden in the depths of Archive Archive Se Diver Codes 


are some 30 extra features plus 
another 10 graphics characters 
along with the familiar ASCII 
character set. All are accessible by print- 
ing a special character code to the 
screeen and while it would be reasonable 
to PRINT chr(65) instead of PRINT “A” it 
is essential that this approach be made if 
all the facilities are to be utilised. 
When chr$(12) is sent by SuperBasic to 
a device such as a printer, the printer will 
look in its ROM and respond to the 
instruction by driving the stepper motor an 
exact number of steps. The motor then 
turns the platen roller the precise distance 
of a sheet of paper, thus presenting a 
fresh sheet or a form feed. In the same 
way other characters sent to the printer 
make the printer behave in specific ways. 


Screen prints 


Printing to the QL screen is somewhat 
similar, except that chr$ below 31 and 
above 128 will print a splodge, as they are 
not interpreted by the QL ROM. To 
teproduce the form feed on-screen, 22 
empty print statements in Basic move the 


Driver code 0 
Driver code 1 
Driver code 2 
Driver code 3 
Driver code 4 
Driver code 5 
Driver code 6 
Driver code 7 
Driver code 8 
Driver code 9 
Driver code 10 
Driver code 11 
Driver code 12 
Driver code 13 
Driver code 14 
Driver code 15 
Driver code 16 
Driver code 17 
Driver code 18 
Driver code 19 
Driver code 20 
Driver code 21 
Driver code 22 
Driver code 23 
Driver code 24 
Driver code 25 
Driver code 26 


No action 
Set ink colour 
Set paper colour 


No action 
Repeat characters 


Underline 
Cursor right 


No action 


Cursor left 
Tab 

Line feed 
Cursor up 
Form feed 
Carriage return 
Cursor on 
Cursor off 


No action 
No action 
Character plot type 


Delete character 
Define window 
Scroll screen up 


Scroll screen down 


Scoll left 
Scroll right 


Set boundary type 
Swap paper‘ink colour 


Parameters: 
Parameters: 
Parameters: 


Parameters: 
Parameters: 
Parameters: 


Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 


oooocoo+-0o0 


Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 
Parameters: 


Driver code 27 ESCape sequences ‘A’ to ‘H’ Parameters: 
Driver code 28 CR+LF Parameters: 
Driver code 29 Pass through Parameters: 
Driver code 30 Home cursor Parameters: 
Driver code 31 Position cursor Parameters: 


screen ‘paper’ up 22 lines to give a new 
sheet of ‘screen paper’ or CLS does it by a 
machine code routine in the ROM. lt 
needs 66 empty 'PRINTs to the printer 
channel to move up the real paper by 66 
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steps to the next clean sheet. Archive 
acts in a different way from Basic 
as characters below 31 are interpreted 
as special screen driver codes which 
may befound by trial and error. 
Many of the codes produce an error 
message “i/o failed” which has both 
puzzled and deterred many users from 
taking advantage of the Archive in-built 
screen handling. The only authorative 
book | have found is the manual for 
Xchange running on an IBM PC or clone. 
None of the QL Archive books covers the 
screen drivers or the later versions of 
Archive. 


Screen matrix 


The Archive screen in mode 0,8 con- 
sists of a matrix 80 wide by 24 down. To 
address this matrix it is possible to use the 
screen driver of Archive and utilise these 
special effects to the full. If you tried it and 
have obtained what appears to be an 
error by sending chr(9}, the only error is 
that you told Archieve to do something 
without supplying the parameters for it to 
function correctly. 

Great stress is laid on this aspect of 
programming when SuperBasic FUNc- 
tions are discussed, with it being empha- 
sied that FUNctions usually need para- 
meters. Archive character codes are no 
different in that those below 31 need, in 
most instances, one or more parameters, 
as in general terms they mimic some 
SuperBasic functions. CLS is the same in 
SuperBasic as CLS in Archive but it 
appears that WINDOW, width, depth, 
start point down, start point across is 
absent from Archive. Notice that “WIN- 
DOW" in SuperBasic must have all four 
parameters supplied for it to function 
without returning an error message, ex- 
actly as chr(20) in Archive must have the 
four parameters supplied. In this win- 
downing example the equivalent are: 


SuperBasic Archive 
10 WINDOW 1,512, PRINT chr(20)+chr 
256,0,0, (0)+chr(0)+chr(80) 
+chr(22) 


It looks cumbersome but it needs typing- 
in only once in a procedure such as: 
proc windo1 
print chr(20)+chr(10)+chr(2) + chr(60) 
+chr(18) 
print chr(2)+chr(4): rem Sets paper to 
green 
cls 


Notice that chr(20) has to be sent first 
and all the four parameters relating to the 
four top left start points as well as width 
and depth for it to be successful. As 
further examples, chr(5) toggles under- 
line on and off, therefore no parameters 
are needed, while chr(2) sets the paper 
colour provided the single paper colour 
parameter is supplied. 

If a high-numbered — above 224 — 
character is sent to the screen in Archive It 
may draw the corner of a box, as there are 
box drawing characters at those loca- 
tions. The same character spooled to the 
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Machine code interface 


Machine code modules can be incorporated into ARCHRTM to speed slow 
parts of the coding by means of the additional usr() function and a use 
qualifier to the LOAD command. The code must be re-locatable and in 
addition the file must contain a six-byte header with the following format. 
Bytes 0 to 3 must contain “pmc0” with bytes 4 and 5 being a word giving the 


length of the following code. 


Example 


de.b 
dc.w 


lea 
move.b 
moveq 
trap£1 
rts 


de.b 
de.1 


dc.b 
dc.w 
de.b 


end 


‘pmc0' 
last-first 


sound(pc), a3 
dO, note-sound (a3) 
£$11,a0 


$a,8 
% 1010101010101010 


160,0 
0, 1000 
0,0,3 


Archive functions 


count eof memory — ermum 
fieldn value num dec 
inkey getkey usr let 
while endwhile else endif 
spoolon —spooloff input mode 
local error stop new 
close update first 
search continue 
append delete display insert 
merge tun sedit sload 
trace dir kill 
logical quill at 

usr 


create 
locate find 


printer by Archive will not draw=the box 
comer and may do nothing or something 
which appears to be stupid, such as 
printing in italic. It is not stupid, as the 
printer is just doing what you told it to do. 

On an Epson printer the same box 
drawing facilities are available as those 
produced on-screen by the high number 
characters in Archive but the printer 
needs several instructions for them to be 
interpreted correctly. First it must be set to 
graphics mode with ESC, 'm’,6; then the 
correct code, e.g., 136, sent to make it print 
a box corner. 


Printer driver 


There is no problem if the printer driver 
translates are installed correctly in printer- 
—dat or some other method of driving the 
printer is used. In my opinion it is worth the 
effort, as it gives a professional-looking 
form on the screen and as on paper. 

The difference between Archive —__prg 
files and __pro files is that the __pro files 
are TOKENISED, as against the __prg 
files being virtual ASCII. Neither type of 


recnum fieldt 
gen lower 
rem if 
import print 
cls return 
quit look 
last position 
order reset 
llist load 
ssave sinput 
dump as 

ink | protect 


file is machine code, as they are both 


~--linterpreted at run time but there is a facility 


for incorporating machine code modules 
to speed some of the slower parts. 


RTM 


This brings us to the Run Time module, 
RTM, which is supposed to need Archdev 
to program it. It does not. Later versions of 
Archive are successful, as is Archive 
running under Xchange. Much of this is 
unnecessary if a text editor is used and 
even Quill can be used to type-in the 
text then EXPORT to it Archive. Remem- 
ber it is only a straightforward text file, as 
is a SuperBasic program file. With this 
premise it then follows that recovery of a 
still-open Archive __dbf file is a job for a 
reasonable text editor. Chas Dillon's 
Editor is excellent for tackling this type of 
problem and both it in all its versions and 
Spy make the job easy. 

A brief run-down of the Archive control 
codes follows but as the whole explana- 
tion occupies some 12 very full pages it is 
not possible to reproduce every detail. 
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The Animated Head by Mark Swift of Blackley, Manchester 
impressed everyone who saw it. “A polished entry of classical 
feel and quality,” said the judges. As the head rotates 


achieving a remarkable solidity of image. If there is a graphic 
which shows off the potential of the QL, this is it.” The program 
needs 512K of extra memory to run. So the QL can still 


smoothly, the shading changes to reflect the light source, 


turn heads... 


QL ARTIST OF THE YEAR 1988 


At last we can reveal the 
results — and the varied 
and beautiful output - 
of the QL World Artist of 
the Year 1988 
Competition. 


After much deliberation Magnetic 
Media finalists made several postal 
journeys around the country — the 
judges decided that the graphic 
display which best represents the QL 
is The Animated Head by Mark Swift. 
He wins a Phillips CM8833 colour 
stereo monitor, supplied by Sector 
Software. 

The runner-up, Mark Knight, will be 
offered a choice of Sector software. 
The standard of entry was very high, 
and we look forward to running 
another art competition in the future. 


Internal Traffic by Mark Knight of Lon- 
don was praised for its effective use of 
moving figures, humour and careful 
programming. “This man has put a great 


deal of work into making the whole scene, 
and impresses with his skills,” say 
the judges. The program uses a DIY 
Toolkit routine, Turbo and needs 640K. 
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Plant Life by C. Bate from St. Helens, Lancashire builds “The maths he used must have been a headache, and the 
ingenious trailing plants using fractals. The “flower arrangement” program, though slow, is fascinating to watch,” said the judge. 
that grows is a little different each time the program runs. It is also pretty. 


Porche 939 by Amprikidis Hardlampos of Drama, Greece has Tacot/Music/Holidays by Saby Chrystiane of Clermont Ferrand, 
been copied painstakingly from a magazine photograph using a France was commended for blending careful artwork with a 
hand-drawn transparent overlay and a black and white monitor. computer environment. It uses Eye-Q and GraphicQL, with a 
The result is a tribute to sharp eyes and patience. simple SuperBasic ‘flipper’ to present one screen after the other. 


Sinclair QL by S. Usher of Helston, Cornwall, used afast-moving Butterfly by P. Harris of Llangynog, Carmaerthen, is an attractive 
series of road signs, Mandelbrot patterns and slogans to praise static picture designed in low-resolution mode with Eye-Q, with a 
the QL; one or two slogans were felt to be a little risky but the very thoughtful use of a few colours, closely inspired by, but not 
presentation is provocative and effective. copied slavishly from, nature. 
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hese comments are orientated 
towards use of The Editor 
(Special Edition) for word- 
| processing. The program did not 

start out designed for this job but develop- 
ment in the course of a year or so made it 
into more than just an alternative to Quill. 
It was much faster, had a wider range of 
commands, and it could be used, when 
the occasion demanded, for manipulating 
program files, something Quill was unfit- 
ted to do. 

As ithas probably reached the end of its 
development cycle, it makes more sense 
to adapt one's ways of using it to extract 
the best effects, rather than to bombard 
Digital Precision with suggestions for 
improvements — much as | would still like 
to see certain changes made. 

EDT__CONFIG_BIN. This routine sets 
the basic operating parameters for the 
program. As you cannot run it from within 
Editor, the settings have to be considered 
as relatively permanent, so they need to 
be suitable for most of your usage. 
Temporary changes, however, can be 
made to many parameters by using the 
BOOT_CMD file and/or the RC com- 
mand; there is no need to feel obliged to 
stick with the configured settings for 
everything you do. 


Right margin 


An example of a desirable permanent 
setting is a right margin of 256, the 
maximum. This allows handling of prog- 
ramming files without undesirable word- 
wrapping based on a margin set for 
document work. It is easy to go beyond 
the right edge of the screen when writing 
lines of SuperBasic code and they will not 
perform too well if they are saved with 
numbered lines separated by the tail- 
ends of other lines. 

You can set the right margin at what- 
ever is suitable for your text processing — 83 
utilises the full screen width — and then re- 

set it during operation whenever neces- 
| sary, using the “SR xxx” command. If you 
produce spreadsheet-like files, for print- 
ing in condensed typeface you might find 
the default setting for Horizontal Pan 
Percentage unsuitable; try 55 percent as 
a start-point. When Editor shares the QL 
with other programs, the cursor can 
become sluggish and setting Cursor 
Speed to 1 is desirable; if extra speed is 
needed only occasionally, set it via the 
BOOT__CMD or other command file. On 
the subject of that file, you can change the 
file name for which Editor looks when 
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YOU CANNOT 


Every rule book has another set of rules 
which are not so easy to find. This month 
Bryan Davies looks at word processing 


commands for The Editor (Special 
Edition) and gets the most from them. 


starting, using the Name of Boot Com- 
mand File option. 

It may be just an oddity of mine but | 
dislike the default characters used as 
Word Delimiters for Cursor Movement 
and have changed the setting to Space 
only; as you cannot get the routine to 
accept a space on its own you have to put 
in another character in addition, prefer- 
ably one which is unlikely to occur in a text 
file — e.g., Shift+Enter. 

BOOT__CMD. Every time Editor is 
loaded, this file is looked for. If not found, 
loading continues. If it is found, whatever 


“It makes more sense 
to adapt one’s ways of 
using it to extract 
the best, rather than 
bombarding DP with 
suggested 
improvements.” 


commands are contained in it are carried- 
out. This is your chance to save work 
later. You can use the configuration 
program for relatively permanent 
changes to the set-up but the boot 
provides a more convenient way of mak- 
ing temporary, quick changes, and of 
setting parameters which cannot be set 
during configuration. 


Colour combinations 


If you have a colour display and have 
reached the age when eyesight is a 
constant irritation, why not experiment 
with the colours used by Editor, to achieve 
the best combination for your eyes and 
viewing conditions? | keep reverting to 
green characters on a black background. 
If you use two copies of Editor during the 
same session, why not identify them by 
different colour schemes? There is no 
reason to limit yourself to one 
BOOT__CMD file; like PRINTER_DAT 
files with Quill, you can write a small 


routine to select the required 
BOOT__CMD file before starting Editor. 
Put lines like this into your system boot 
file: 


1 DELETE flp1_BOOT_.CMD 

2 PRINT, “Do you want BOOT__CMD 1 
or 2?” 

3 LET a=INKEY$(-1) 

4 SELECT ONa 

51=1: COPY flpi_BOOT__CMD1 TO 
flp1_BOOT_CMD 

6 1=2:COPY flp1_BOOT__CMDS TO 
flp1__BOOT__CMD 

7 END SELECT 

8 EXEC flp1__Edt_bin 


or use “COPY__O flp1_BOOT_CMD, 
flp1_BOOT_CMD1" if you have a 
Toolkit. 


and make BOOT__CMD set the para- 
meters you want. For example: 


M120 KM 4,0 KC 7,0 KE 2,7 CD1 


will set the memory space for a document 
to 120KB, make the text colour green 
against a black background, the 
command-line text white against a black 
background, and the error text red against 
a white background, and then set the 
cursor speed to maximum. 

Where documents vary considerably in 
size it is worth considering using a 
command like “M120 M20” to set the 
initial memory space allocation high, then 
drop it to a level sufficient for average 
documents; if additional space is required 
later it is more likely you will get it if space 
has been reserved initially than if you had 
started Editor with the default 15KB 
allocation. Finding additional memory can 
be a problem when you run other prog- 
rams at the same time; there may be 
plenty of memory there but not in a block 
usable by Editor. 

While windows may look striking, there 
is little practical point in using less than the 
full screen space for text input, so why not 
take advantage of the QL “extra width” 
and set the Editor window for the max- 
imum 83 characters? Losing the odd line 
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vertically because of indicator windows, 
such as the clock and caps/memory 
indicators shown in the figure, is not a 
great handicap and causes less waste of 
time then having to scroll horizontally to 
get to the ends of lines. 


Two copies 


When two copies are in use, and 
copying is done between them, they can 
be set full-width one above the other. Your 
main copy can be left full-screen and the 
secondary one laid over the bottom of it. If 
you have a Toolkit with the ALTKEY 
function, changing the size of Copy 2 can 
be done with two keypresses. Set the size 
of Copy 1 with the configuration program, 
so that copy loads with no need for 
modification, then determine how many 
operations of the ALT and cursor keys are 
needed to alter the size and position from 
that of Copy 1 to what is required for Copy 


4 Mo pat tteadres 
vat MY 170% a 
« Hale ar ade 


F4, then ALT+up cursor nine times — to 
reduce the window size — then down- 
cursor nine times — to move the window to 
the bottom of the screen. Assuming Copy 
1 was full-screen, keying ALT+/ should 
result in Copy 2 being set up to be roughly 
half-screen high and based in the lower 
half of the display. Being able to see text in 
two files — or two parts of the same file — at 


“There is merit in 
making a back-up 
copy to Microdrive 
when you use disc as 
the main medium; a 
problem with the drive 
or interface can put you 
out of business”. 


the same time makes copying from one to 
the other easier; use RAM disc as 
temporary storage, mark the required 
block, and write it to RAM with the 
“BW.RAM1__temp” command, then 
transfer (CTRL+C) to the other copy of 
Editor, cursor to the place where the block 


Ft S11 s9ReBs TR, 1172411 d6;1177 sCOTO,R. PL it 


2E PARTS LIST 


parts are common to these models; the GENODELST column shows vhich models 


use each part, The model codes are given in bruckets after the Service Numbers, 

Ports worked QBNS7 are not shou on the parts breakdown drauings. 

arts warked Q@NAT are not available as replacements. Contact Service Department 
ut compressors and parts with -- for the Price Group. 


2, and set up an appropriate ALTKEY to 
perform those keypresses after Copy 2 
has loaded. In the initial boot program, put 
a line like: 


ALTKEY ‘/’.,CHR$(246)&FILL$(CHR$ 
(209), 9)&FILLS(CHR$(216),9) 
&CHR§(10) 

This is equivalent to pressing SHIFT+ 
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is required and insert it with the 
“AF.RAM1__temp” command. 
COMMAND FILES. No doubt many 
users never utilise the RC command but it 
iS One which can save much time. The 
BOOT__CMD file is a normal command 
file, except insofar as the program calls it 
automatically when it starts up. The 
program stores certain configuration in- 
formation but that does not include the 


format — layout — of individual documents. 
A command file can store the format 
details and re-load them immediately 
prior to the loading of the document. 
Under some circumstances, the flexibility 
given to file structure by not keeping 
information such as margin settings in 
files is very useful but it tends to be an 
inconvenience if all your work is word 
processing. 

Figure one is a screen dump, showing a 
command file (top line) and the document 
file it loads. The document —“SPList”, line 
3 onwards — needs three tabs and the 
right margin setting; the TR is to ensure 
that any other tabs set prior to loading this 
document are removed. 

Likewise with the SL and SI commands, 
The CD command can be dispensed with 
if the value set during initial configuration 
suits all jobs and system set-ups the user 
has but it can be useful sometimes. Line 1 
will appear briefly on the status line when 
the command which is shown there on the 
screen dump starts executing; it is shown 
at the top of the text screen here only for 
illustration and neither it nor line 2 are part 
of the master document, which starts at 
line 3. 

Lines in a document file beginning with 
a semi-colon are treated by the printer 
program as being comments only — 
similar to REMark in SuperBasic — unless 
the letter-group following the semi-colon 
happens to be that for a print command. A 
few such lines at the top of a document 
can be good memory-jerkers. Normally | 
put the file name, number of words, then 
size, on the first line and the identifying 
numbers of the disc and cartridge on 
which copies are kept on the second line. 


Back-ups 


There is merit in making a back-up copy 
to Microdrive when you use disc as the 
main medium; it takes only a problem with 
disc drive or interface for you to be out of 
business but the Microdrives can normal- 
ly be expected to continue functioning in 
such circumstances. If any comments 
need to be made relative to the document, 
its format and printing, they can come 
next. . 

On the screen dump, the first two lines 
of the document proper are partly remin- 
ders of what the page length and left 
margin settings are, but the printer prog- 
ram, unlike The Editor, acts on those 
lines, so they can be used to over-ride the 
default settings in the DRIVER_DAT file 
at print time. 

Bear this in mind when making com- 
ments, because it is possible for the print 
program to take them as commands if the 
first few characters match one on its list. 
Remember that a command put into a file 
for the benefit of the printer program may 
also need to be executed when the 
document is being edited, to avoid possi- 
ble confusion. 

When the basic page length setting in 
the DRIVER__DAT file is PPL60 and you 
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choose to put the command line “;PPL65” 
into the document, the document will not 
be re-formatted to 65 lines per page 
unless you use either the command F3 
PPL65 ENTER or put the cursor on that 
command line and use F3 EX ENTER. By 
using the latter command you can make a 
command sequence part of the docu- 
ment; put the commands after a semi- 
colon, in the manner you would use on the 
normal command line — when using F3 — 
then load the file and position the cursor 
| somewhere on that line and key F3 EX 
ENTER. For example: 


‘QLW99(2344/21650) 

;D69/C119 

;pages not consecutive — don’t print from 
12A 

needs spell-checking 

;PLM10 SL1 Si1 SR80 PPL60 PFM4 
;PFT1 DATED PAGE ## 

QL WORLD 


The fifth line is the one on which to use 
EX. 


LONG DOCUMENTS. While the Docu- 
ment mode enhances the word proces- 
sing capability of the program consider- 
ably, it has some unwelcome side-effects. 
The most obvious is a considerable 
slowing of operations, This is particularly 
noticeable when using the program in a 
multi-tasking environment; operations 
such as writing typed characters to the 
screen can become so slow that you may 
have to wait several seconds for it to catch 
up with your input, even if you are not a 
fast typist; you can improve the situation 
considerably by installing the Lightning 
“accelerator”. 


Long documents 


Long documents as used here mean 
about 1,000 words — 5KB file size — 
upwards on set-ups which use all of 
896KB of memory to hold several major 
programs at the same time. 

The message is not to use the MD or 
RD commands unless they are essential; 
do as much of the input and alteration 
work as possible before thinking about 
splitting the document into pages. Even 
when the document is in its final state, 
consider making changes, however 
minor, without using RD. The time saved 
can be considerable. If you make use of 
the SQ’ command lock-ups can occur 
when in Document mode, so use it in Text 
mode; additionally, the Block commands 
can produce error messages and a return 
to the top of the document, which is 
infuriating if occurring frequently when 
you are well into a multi-page document. 

It may seem a backward step but it is 
best to save the document, then read it in 
with the R command, before marking a 
block and ordering it with the SQ com- 
mand. 

REFORMATTING. The program was 
not designed to re-format text as you type 


itin and this is one reason operations are 
so much faster than with Quill. The PR 
command is distinctly slow; use it sparing- 
ly and make sure before using it that there 
are blank lines between blocks of text 
which you want to keep separate. You can 
find yourself bouncing off the ceiling if lack 
of attention to this point results in a 
document you have re-worked laborious- 
ly — perhaps from a format used by 
another program — becoming scrambled. 
Always save the document as the last act 
before using PR. 

Watch for incorrect page lengths when 
PRis used; it can cause the page length to 
become one line more than the set PPL, if 
PR is used over a Page Break. This may 
become apparent only when you print and 
can cause wasted time sorting through a 
long document to find the problem area. 
You may have to force the “extra” line into 
the next page using Enter and then use 
the PR command again from the top of 
that next page. Using the PPL command 
may not do the job completely, because 
the line at the end of the page will not have 
been re-formatted correctly. 

There are two ways offered for printing, 
one taking much less time than the other. 
You can use the “WP” command when in 
Editor and make a quick print without 
exiting the program. This is rather like 
using the Quill Print command without the 
program disc’cartridge being in drive 1; all 
text is printed in the basic printer font, 
usually 10-pitch Pica, without enhance- 
ments such as Bold and Underlined. If this 
is sufficient for your needs, use it, be- 
cause itis much more convenient than the 
alternative. To get a left margin, go to 
SuperBasic and type-in — perhaps set an 
ALTKEY for — a line such as: 


OPEN#7,SER1:PRINT#7,CHR$(27)& 
CHR$(65)&CHR$(27)&CHR$(108)& 
CHR$(10):CLOSE#7 


This will re-set Epson-compatible prin- 
ters to the power-on settings, then set the 
left margin to 10 characters — tin. with 10- 
pitch. You can also set typeface and 


“Watch for incorrect 
page lengths when PR 
is used; the page can 
become one line longer 
than the set PPL.” 


enhancements this way. Any special 
codes present in the document are likely 
to produce “permanent” changes in the 
printout, so try to avoid putting them in 
until draft printing has been completed. A 
call for condensed print in the address on 
a letter can result in the whole letter being 
printed condensed and, besides that, the 
printer will be left set for condensed when 
the next print request is made. 


EDTPRT_BIN. This separate program 
allows a wide range of customisation of 
printed output. You have to step out of 
Editor to use it but you can use CTRL+C 
to switch between the programs. While 
the program code of later versions is less 
than with earlier ones, the memory space 
required is still almost 50KB and you need 
to remember that when setting the alloca- 
tion for Editor. An increase in the Jatter to 
cope with a large document might leave 
you short of space for the print program. 
There are two places where you can put 
print parameters — into the document or in 
the DRIVER_DAT file. The latter is for 
basic, semi-permanent settings, which 
can be altered as required in the docu- 
ment. 


Not continuous 


A typical case of where changes might 
be required is page numbering. Perhaps 
some pages of a document — drawings, 
for instance — are not prepared on the QL 
and the page sequence is not continuous. 
My experience has been that you need to 
experiment with the insertion of para- 
meters into the document file, because 
the effects are not always what you would 
expect from reading the manual. In 
theory, the first page which should have a 
page number which is out-of-sequence 
needs the line “;PPN n” somewhere in 
that page, where “n” is the number you 
wish to see printed on it. 

In long files, | have found itnecessary to 
put “PPN n+1” on the page which has to 
be numbered “Page n”; this may be 
peculiar to certain files, lengths or page 
numbering arrangements, since putting 
“PPN n” at the top of a page in a small file 
correctly produces “Page n”. Unfortun- 
ately, it may also produce “Page n—1” as 
the number for the previous page. 

Try inserting the PPN command at 
about the middle of the page and make 
the number one more than that page 
needs to be numbered; this seems to 
produce the correct page numbering for 
that page and subsequent ones and avoids 
the prior one being re-numbered also. 

You need to keep awake when select- 
ing pages to be printed; ask for pages by 
their re-numbered designations. Another 
oddity is that the “Proceed within same 
file” option after a page or group of pages 
has been printed may offer as default the 
— numerically — next page for printing but it 
then ignores a request to print that and 
proceeds to offer the one after that, and so 
on. 

The only way | have found to circum- 
vent this is always to print sequences of 
pages and make a separate operation of 
printing any pages not in a sequence. 
There is another reason for this; selecting 
a page which is not the next one on offer 
can lead to a print being obtained with the 
incorrect page number on it; again, the 
only solution seems to be to ask for that 
particular page first, not from the “Pro- 
ceed within same file” option. 


Sinclaix/QL World September 1989 


BASIC 
improvements 


ost people to whom T speak 

who do their own program- 

ming do not seem to use 

functions, do not understand 
them and would not touch’ one 
with a bargepole. | do not understand 
why. They can be more useful than 
procedures and they can certainly produce 
some very elegant code, 

I did not use them for a long time. I 
think it may be something to do with the 
fact that they return a value of some kind. 
It may be better to describe them as 
something which Has a value rather than 
Returning one. 


A value 


What is a function? In mathematics, a 
function is an equation which returns a 
value, so perhaps that confirms trom 
where the name came. So far as program- 
ming is concerned it is a sequence of 
instructions which on being executed can 
be considered as having a value. You have 
probably seen the function which returns a 
square of a number. Just to be different, 
here is one which returns the square root: 


100 DEF FN sqr—_root(x) 

110 IF x<0 then PRINT “Don’t be silly”: 
RETurn O: ELSE RETurn x a5 

120 END DEF sqr—root 


Now, how do you use it? Like this: 


PRINT sqr—root 99 or 
result=sqr__root 99 


For want of a better way of putting it a 
procedure is like a verb. It does some- 
thing. A function is like a noun. It Is 
something, Do not try to continue the 
analogy too far, because English is a much 
more sophisticated language than 
SuperBasic. 

In the foregoing example, PRINT is the 
equivalent of a verb and sqr_root is like a 
noun — has a value or meaning. The value 
is the result of executing the code in the 
function, using any values given to the 
function as parameters. 

A parameter passed to a function, or 
procedure for that matter, is treated as a 
local variable in the function. This means 
that the (x) used as a parameter to 
sqr_root has no meaning outside the 
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function unless it is defined specifically. 
Look at these PRINT statements: 


PRINT ‘a’ :This is lower-case a 
PRINT a$ :This is a string variable 
PRINT CHR$(a) :aisanumeric variable 


PRINT sqr__root(a) :So is this 
In the last two, you will notice the 
similarity, CHR$is a function and is used in 
exactly the same way as the sqr—root 
function. The main difference between 
CHR$ and sqr—root is that CHR$ is 
included in the OL/Thor, whereas you 
wrote the other one. I assume that you are 
satisfied using CODE, CHR$ and so on, 
so why not write some of your own? 
Look again at sqr—root. It does not 
only return a value. If you enter some- 
thing silly it also prints a string. There is no 


Most people whom I 
speak would not touch 
a function with a 
bargepole, yet 
functions can be 
more useful than 
procedures and 
certainly produce 
some very elegant 
code. 


reason why a function cannot do this, 
although many lesser Basics allow a 
simple calculation only as a function. 

In fact, in SuperBasic, a whole program 
could be a function, provided it returns a 
value of some kind before it finishes. Here 
is a useful function: 


150. DEF FN range(item,lo,hi) 

160 IF item>=lo AND item<=hi then 
RETURN I:Else RETURN 0 

170 END DEF range 


This was used as an example in the first 
article in the series. If you recall the part of 
that article which mentioned boolean 


In the second 
instalment in his 
introduction to 
better Basic, 
Desmond Barry 
flies the flag for 
functions. 


variables, you may recognise that ‘range’ 
is a boolean function. Remember that it 
can be used just like a variable. In this 
case, it can have only two values, either 1 
or 0. To refresh your memory, it is used 
like this: 


240 n=CODE(INKEY$(#15,—1)):IF 
NOT range(n, 49,56) THEN GOTO 240 


Are you getting the hang of it? Func- 
tions do not need to be numeric. I use one 
called trunc$(a$) which returns a$ with 
trailing spaces removed. You use it by: 


text$=trunc$(text$) 


You will have noticed that the ‘type’ of 
the function is the same as the ‘type’ of 
value returned. In SuperBasic only three 
‘types’ are supported — strings, floating 
point numbers and integers. Thus, trunc$ 
returns a string as its value and range 
returns a floating point number. The only 
thing to consider between floats and 
integers is that some aspects of SuperBasic 
do not accept integers, notably FOR 
loops. 

. The functions I have mentioned so far 
have been fairly simple and straightfor- 
ward. Now I will describe a rather more 
complex one. I call it select__file$. It has 
one parameter, device$. It is used by: 


200 filenames$=select__file$(device$) 


It does a directory of device$, displays 
them ina useful format, then allows you to 
move round a large cursor like the Abacus 
one, highlighting filenames. When you 
find the one you want you press ENTER 
and that filename is returned as the value 
of the function and assigned to filename$. 


Not simple 


The following routine took me a long 
time to write and it is a part of one of my 
commercial programs, so I regret that I 
cannot publish the code. I will give a 
description of how it works. You may care 
to try writing it yourself. 


DEF FN select__file$(device$) 


do a directory on device$ 
get the directory into an appropriate 
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array 
display it in a regular format on-screen 
highlight the first filename 
LOOP 
cursor keys to move highlight 
if ENTER then return currently 
highlighted filename 
END LOOP 
END DEF select_file$ 


Obviously, this is not a simple function. 
It is probably more like a procedure 
except for the RETURN statement. If it 
was a procedure you would probably set 
filename$ inside or just outside the pro- 
cedure, then use it to do whatever you 
needed to get it for. All very complicated. 
See how it is used to print a file: 


340 DEF PROC print_file 

350 INPUT ‘Device? *;dev$ 

360 REM error check here for validity 

370 PRINT ‘Which file?’ 

380 file$ =select_file$(dev$): REM this is 
the function 

390 COPY dev$&file$ TO serir 

400 END DEF print_file 


Of course, it can be used in the same 
way anywhere you need to get a filename. 
Then you write a function to return the 
device name as well and you do not need 
to type the things at all. 

We have now covered two simple 
functions and described one very complex 
one. Now for something rather unortho- 


dox. Suppose you want to do something 
like the select_file$ problem of returning 
a filename. You have a list of items 
identified by a number and a string value, 


Cf 


1 Lettuce 
2 Tomato 
etc. 


For the purposes of this, you need to 
return the reference number as well as the 
string. There is nothing to prevent you 
using a string function which returns the 
number as well as the string. All you need 
to do is to use the QL/Thor coercion to 
turn | into ‘1’. In the case of the foregoing 
items, it would be RETURN 1&‘Lettuce’, 
2&‘*Tomato’, etc, 


Split string 


You will note that this is satisfactory for 
situations where you have up to nine 
items, because you can split the string 
outside the function. What if you have 
more than nine items? When I encounter- 
ed this problem I concluded that, rather 
than pad and concatenate strings, I would 
add 10 to the reference number, then 
coerce it into the string. The process can 
be reversed outside the function. 

In this case you are using a function to 
return two values, a number and a string. 
Show me in the manual where it says you 
cannot. 


A variation on this is if you need to 
return two numbers. If you multiply one 
of them by a factor equal to one more than 
the maximum the other can be, they can 
be treated as a single number and sepa- 
rated outside the function again. 

Suppose you want to return the area 
and perimeter of a square, which could be 
up to the size of the screen. i.e., 512 by 256 
pixels: 


The maximum area in pixels is 512*256= 
131072. 

The maximum 
2*(512+256)= 1536. 
Your RETURN statement will be: 


perimeter is 


RETURN area* 1536+ perimeter 


The function is assumed to assign its value 
to a variable called value. e.g., value= 
FName. When you get out of the function, 
you separate them by: 


area=INT)value/1536):perimeter=value- 
area 


I know this is a silly example because it 
would be easier not to use a function here 
but it illustrates the principle. 

I hope some of this article has whetted 
your appetite for functions. They can be 
some of the most elegant structures in 
programming in any language which sup- 
ports them. They can really improve your 
SuperBasic. 


ff TF Services 


j 7" d 
London STD codes 
London @1- dialling code is changing to @71~ or 
BEl- in Moy 1998, [f you howe a computer bated 
address List, ue con provide the data you need 
to change your Jats, and even a prog to 
change text Files (eg Psoon EXPORT files). 
Disks contain 5 tent lists in database import 
Formats quote delimited, atc! & a progrow for 
ext Cre export) File conversion, Aleo provided 
TBM PC Files Fee major databoses,'spedshis. 
Psion Archive dbf file 

a The 5 tesh Lists & program only 


ow 
wiARL $I 


QUICK QL REPAIRS 


WAST stock of Components & working 
circuit boards to emsure quick and 
rediable repair (Usually some day) 


PRESTEL ete. Phone ¢ 


DLs tested vith Thorn EN] test rig 
ond ROM softuare 


(NOU fard.ore extra iF raquireds 


Huch improved mains filters. 48-88 cb cul 
LS spike filters. 398 joule cut (3% 4 vay) 
Certified WY 248ac capacitors 


2-uay Sa adopter) . 
S-vay “So adaptor). 
4-uny (13a trailing socke 


Viewdatac¥IS2-ASC11 OL TERMINAL EMULATOR 
“Een deluxe comunicatieprogroma van Kuol soft’ 


Mul ki tasking progr for electronic 
wrectories for ALL (yes ALL) 
wodens for the OL, tutodial (unere poss) ond 
logon, tuo-way FILE TRANSFER to ATARI ST, [BM PC, 
Peion Orgoniser (vio comms link), CQEH, real 
time clock timer, buffered logs to fi le/printer 
transmit Files, editable comurd Line, Suedicn” 
Horuegian aptions, EOL tronsiotes, editor etc. 
SOLVES ALL PACKADED “ODEN SOFTHARE PROBLEMS 
Unbuffered modews usable uith Miracle Modoptor 


i 


wal , 


£25 (6m gntee] 


Software €3,5" or ndw) & manual fh 


REBEL 
ELECTRONICS LTD 


AT LAST PERFORMANCE PRODUCTS FOR YOUR QL 


RB 100 — 


WINCHESTER DISC CONTROLLER 


(Price £195) 


@ High performance Western Digital Chipset 
@ Standard ST506/ST412 drive interface 

@ 8K byte sector buffer 

@ Plugs into QL expansion port or backplane 
@ Controls up to two physical drives 


RB2000 — 


CONTROLLER + 20M DRIVE + PSU 


(Price £399) 


@ Ready to go system 
@ Elegant styling 


RB5SOE/RB500E EXPANSION 
BACKPLANES 
(£83 or £192 EACH) 


ALL PRICES INCLUDE VAT AND P&P 
To order: Please fill in coupon and post to 


REBEL ELECTRONICS LTD 


ASTRACOM Modem 


Intelligent buffered modem with text status 
messages. Hayes protocol, parallel printer 
port (can be used as 6k serial to parallel 
printer buffer), 24Bvac or 9-]2ude. Butodial’ 
onaver ced nony programmable registers incl 
printer logging oof RX and/or TX dota. 
BT opprwed. Con be used vith ony ee 

(3/380 ond 75/1200) 

73 (adds (208/1288 + tone ding) .. tal 
te upgrade to existing sodel 


12 YORK PLACE, LEEDS LS1 2DS. Or telephone 
0757 86630/0904 708073 


PLEASE HAVE YOUR VISA CARD READY 
—e_eeEt eS SS Ee ee ee ee 
Please send me: 
RB2000 1) RBSOE |) 
| enclose cheque — Value £ 
or debit Visa Card 
Signature: 


Address: 


FILE TRANSFER 


Frograss to iransFar text AND programs 
error free CXNOOEN) between computers 


Pyailoble for [BM PC ond cowpotibles, 
ATPRI ET ond Sinclair OL. Cormests ta 
Peion organiser via Peion coms (ink 


Qualsoll pragroe (per W MD avaes ca 
Serial lead cnome 2 computers)... E10 
Complete package for 2 computers, €25 


Expiry date: 


Name: 


Telex: 2h 
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# QL WORLD DIY TOOLKIT - FAST pixel graphics routines 

# Version 1.3, Copyright 1989 Simon N Goodwin, 

# 

xstore equ 84 Offsets of ald X&Y 

ystore equ 78 in the channel block 

. 

start lea.l = define,al 
move.w $110,a2 BP. INIT vector 
jmp {a2) 

+ 

draw lea.l drawer,a4 
bra.s = get_paraas 

plot lea.] plotter, a4 

+ 

+ Parameter handler - for 2 or 3 parameters 

# 

get params move.w $112,a2 Yectar to get integers 
jer (a2) CA.GTINT 
bne.s bad exit 
moveq © #1, dd First assume channel 1 
subg.w = #2,d3 At least 2 parameters? 
beq.5  get_caords Exactly 2, use dil 
bai.s bad param Less than 2: an error 
subg.w #1,d3 Only 1 parameter left? 
bne.s  bad_param No, toa many, complain 
move.W Gial,ad.1),d0 Get BASIC channel No. 
addq.1 #2, al Discard channel paraa. 

get_coards move.w lal,aé.1),d! Get 4 co-ordinate 
move.w 2tal,ab.li,d2 Get ¥ co-ordinate 

+ 

# Convert channel number in DO to ID in AO and call EXTOP 

+ 

chan sel = gulu #40,.d0 Channel table size 
add.) = $30 (ad) dd Add base otfset 


1. 


cap.d 
ge. 
moves] 
bai.s 

call_extop move.) 
save.) 
aoveg 
maveq 
trap 
rts 

+ 

bad param moveg 
rts 

what chan moveg 

bad_evit rts 

+ 

* Line DRAW routine 

t 

drawer move. w 
hove.wW 
bsr 

find DX = subvl 
sub.w 
beg.s 
bmi.s 
addq. | 
bra. 

neg_Di subg.1 
neg. 

set_X_step btst 
beqg.s 
add. 1 
ror.W 

find DY sub. | 
sub. W 
beq.s 


$34 (ad) dO 
what chan 
Olab,d0.1),d0 
what_chan 
dO, ai 

a4,az 

#-1,d3 

#9,.d0 

#3 


#-15,40 


$-6,d0 


sstore(ad) 4 
ystoretalil di 
range chk 
aZ,az 

d4,d1 

set_i step 
neg_Oh 

#i,aZ 
sel X step 
Haz 

dl 

#3,52(a6) 
find _DY 

al,az 

H1,dh 

aj,at 

di,d2 

find DD 


Fast end of table? 


Negative if closed 

AG is channel ID 
Address of routine 
Allow intinite tine 
SD.EXTOP key 

Call the device driver 


. Return BO from EXTOP 


RAD PARAMETER error 


CHANNEL NOT OPEN error 
Error code is in DG 


Fetch previous % 
Fetch previous ¥ 
Line must fit window 
bi r= 6 


AZ := SIGN Delta % } 


Di := ABS Delta Xx ) 
Check mode (SV,MCSTA) 
MODE 4, Di & A2 are OK 
MODE 8, double % step 
find halve X dot count 
DY i= 6 


neq _DY 
find_DD 


no_match 


y_biager 


find_TENP 


+ 

# Now draw 
+ 

dot _loog 


bai.s 
addg.1] 
bra.s 
subg. | 
neg. ¥ 
cme, 
bhi.s 
HOVe.W 
sub. 1 
bra.s 
exg 
sub, 1 
move. W 
@GVe.W 
acr.W 
Move. W 
MOVE. W 
subg. 
bai.s 
exg 
exg 


neg_DY 
#1,a3 
find_DD 
#1,a3 

d2 

di,d2 
y_biager 
az,a4 
a5,a5 
find TEMP 
di,d2 
a4,a4 
a3,ao 
di, dG 
#1,d0 
d2,d6 
di,d2 
41,02 
null _draw 
di,d4 


2,05 


:= SIGN( Delta ¥ } 


ARS( Delta Y } 
= MAX( DL, D2) 


DL := MAX( DL,02 ) 
Odi t= 0 
DDY i= DY 


TEMP : 


02 is DOT for DBRA 

Exit if line lenath=0 
OLDX = Diy STEPS = D4 
GOLDY = D2} BOT = D5 


a line of DS pixels} 01,02 = 1,¥ of next point 


add. w 
CAD. 
bcs.6 
sub.w 
add.w 
add.w 
bra.s 


add.& 
add.w 
HOVER. ® 
ber.s 


dé,d6 
d4,do 
use DD 
d4, da 
az, di 
ai,d2 


de_dot 


a4,di 
a5,dz 
di-d2,-(a7) 


alot pixel 


TEMP t= TEMP + PARTS 
Flag TEMP - STEPS 


TEMP i= TEMP - STEPS 
OLDY t= GLOY + 0X 
OLDY t= OLDY + DY 


OLDY := OLDX + OD 
OLDY i= OLDY + DDY 
Preserve GLDY & OLY 


statements and saves the code in a file. 
Once you have loaded that file, as follows, 
you can use PLOT and DRAW in your 
own programs. 


base=RESPR(382) LBYTES “file 
name” ,base : CALL base : NEW 


The first part of listing two is Marcus 
Jeffery's standard loader, used in every 
month's DIY Toolkit project. Only the 
DATA, from line 590 onwards, changes 
from month to month. 

Listing one is the assembly code prog- 
ram, assembled using HiSoft DevPac. 
You can type this text into your assembler 
if you want to customise the code or 
merge it with other routines. The START 
routine calls BP.INIT, the ROM vector 
which adds new commands to Super- 
Basic. The table labelled DEFINE, at the 
end of the listing, indicates the names and 
addresses of the commands. The table is 
at the end to make it easy to extend the 
command names if they clash with vari- 
ables or SuperBasic definitions in your 
programs. 


The rest of the listing can be considered 
as four parts. The first part is shared 
between PLOT and DRAW and uses 
much the same code as PIXEL%, ex- 
plained in June. It reads the parameters, 
selects the required channel and calls 
EXTOP. 

The only difference between PLOT and 
DRAW to this stage is the code vector, 
copied from A4 to A2, which tells Qdos 
where to find code to perform the ‘EX- 
tended OPeration’. The X and Y co- 
ordinates are passed in D1 and D2 
respectively. 


Supervisor 


The remaining three routines are all 
executed in supervisor mode, as part of 
the display device driver. The EXTOP call 
sets two registers to point to important 
system tables. A6 points to the system 
variables, whereas it pointed to the start of 
SuperBasic memory before the call. AO 
points to the start address of channel 
details, as explored in May with my CHAN 
functions. 


The subroutine RANGE__CHK is 
called by both PLOT and DRAW; it could 
not be before the EXTOP because it uses 
the system values of AO and A6 to check 
that the operation can be performed. 

The first check tests SV.SCRST, the 
‘SCReen STatus’ system variable. If this 
is set all display output is disabled be- 
cause CTRL-F5 has been pressed. The 
code returns ERR.NC, the ‘not complete’ 
error code. The EXTOP handler sees that 
the time-out is infinite — in other words it 
should persevere until the operation can 
be performed — so it keeps trying, every 
time a scheduler interrupt occurs, until a 
key is pressed and SV.SCRST allows 
output to continue. 

Notice the way QUICK__EXIT returns 
directly to the EXTOP caller, rather than to 
PLOTTER or DRAWER; it removes the 
last return address from the stack, so it 
never returns to the immediately previous 
caller if an error occurs. The technique 
saves time and space but it can cause 
problems unless the hierarchy of calls is 
defined rigidly. 

Next RANGE__CHK ensures that the 


movemw calit dt-ds 
dare d5.dot leas 
oli_draw @ovea #0, dé 
rle 


Pestore OLD) § OLDY 


Caco d.cale checkers isi, Dlr. ERROR bt fevand window 


range chk tate Sitaal 
bie.e screen off 
tst, a 
bm. range ers 
cmp. Milaes dz 
bees range err 
tstww di 
bhl.s = range _err 
cmp. W 2Biadi di 
bCC.S range err 
move, w #98086, ¢7 
btst #3, 52 (a6) 
beg.s = range_ok 
bclr 40,41 
move.b $800, d7 
range_ok add.w 24(adi,dl 
add.w = 2o4a0),d2 
move.W di,xstorefad) 
nove,w d2,ystore(ad) 
rts 
¢ 
screen off mayeq 4-1, d0 
bra.s quick _exit 
range_err moveg  4#-4,d6 
quick exit addq.t #4,a7 
rts 
* 
# Fixel FLOT code, uses AU, Ad, D7} 
# 
plotter bsr.s range chk 
aoveg = #0, do 


Test SV.5CR5T 
abort if CTRL-FS set 
Check ¥ -= 4 


CH, HEIGHT 


Check 3 
Check & = 4 
Check 4 < CH.WIDTH 


Set MODE 4 pixel mask 
Check MODE (SV.MCSTA} 
MODE 4, no problems 
MODE 8, ¥ must be EVEN 
Mask 8 calours 

Add window affset to x 
fidd window offset to ¥ 
Store end % on SO, i0RG 
Store end ¥ an SD, DRG 


NOT COMPLETE error 
QUT OF RANGE error 
Return to after TRAF 


alters fl. 1, 02, 03 


Praset ERR,OK report 


piat_pixel move.l  62(a0),d3 
btst 40,d2 
beq.s = find_word 
Swap d3 

+ 


Grab the ink mask 
Find out if ¥ is odd 
It’s even, mask is OF 
Qdd, so use other mask 


# Point Al at the relevant word in video memory 


* 

find word move.] Sutadi,al 
Isl.w 47,42 
add.w = d2,a] 
nave R7 di? 
and.W di,d? 
Isr.w #3,di 
adi.w di.di 
add.w = di, ad 


+ 
# Set the pixel in MODE 4 or 8, aliawing for OVER -i 
+ 


move.w d7.dt 
cor. dz,di 
and. di.d3 
btst #366680) 
bne.¢ overgiot 
notuw dj 

and.a falta 
or.wW d3,dl 

di, {aii 


set _gliel 


acye,w 

rts 
cverelot  eor.w 

rhe 


U3, cali 


+ 


derine (ae i 
flat-+ 
4,°FLOT 
draw-# 
4, DRAW 


G,.a,4 


1 }= screen RAM start 
line= 2°7= 128 bytes 
1 i= line RAM start 


A 
1 
fi 


Save % MDD 8 in BE 

D1 t= offset on line 
O¥feet t= 0-124 \EVEN) 
Ai -) screen Rat word 


Select pixel mase 
Align pixel mask 
Bi t= t pleel af ink 
Check for GVER -1 


Masi cut the rest 
Fetch the backaraund 
Insert the pixel 

Stare the combinetian 
PLOT returns EPR, DF 
Evchosive Gm the pixel 


Humber of pracedures 


End of procs. no fns 


5 hale ae 
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100 
110 
120 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
290 
300 
314 
B20 
230 
340 
3506 
3460 
370 
380 
390 
40 
420 
436 
440 
450 
440 
ava 
4380 
490 
S00 
S20 
S30 
560 
S70 
S80 
Soa 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
7OG 
7FIQ 
720 
30 
P4AG 
730 
FOG 
PPS 
/8a 
79G 
Bao 
810 
820 
B30 
84a 
850 


REMark Sinclair QL World HEX LOADER 
REMark by Marcus Jeffery & Simon N Goodwin 


CLS: RESTORE = READ space: start=RESPRispace) 
PRINT “Loading Hex..." = 


INPUT "Save to file..."3% 


HEX LOAD start 


SBYTES f%,start,byte : STOP 


DEFine FuNction DECIMAL (x) 
RETurn CODE (h$ (x) ) -48-7# (HE (x) EMO") 
END DEFine DECIMAL 


DEFine PROCedure HEX LOAD(start? 


byte 


= 0 +: checksum = 0 


REPeat load_hex digits 
READ h& 
IF hS="*" 2 EXIT load hex digits 
IF LEN¢h#) MOD 2 


FPRINT"Odd number of hex digits im: " 


STOF 


END IF 


FOR b 


1 TO LEN(HS) 
hb = DECIMAL (b) : 


STEF 2 
lb = DECIMAL (b+1) 


IF hb<G OR hb?15 OR 1b<6 GR 1b?is 


PRINT"Illegal hex digit in: 


END IF 


"She 


FOKE start+byte, 16*#hb+lb 
checksum = checksum + 16*hb + Ib 


byte = byte + 1 


END FOR b 
END REFeat load _hex_ digits 


READ 


IF check <> 
PRINT"Checksum incorrect. Recheck data.":STOF 


END I 


check 
checksum 


i= 


FRINT" Checksum correct, 
END DEFine HEX LGAD 


REMark Space requirements for the machine code 


DATA 
REMar 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


S62 


k Machine code data 


"ASFAQL6434790000", 
“"6G00449FA01 1423479", 
"“JOOISS42670C6RS2", 
“S4ABIS2SLEBN0S431", 
“OOSOBOAEOOS46C16", 
"244C74FF70094E43", 
"SE7S38 2800543028", 
“924447 0AG6BR04528A", 
"GOUZO0S46704DS5SCAR" , 
"6BO4520R6004538R", 
“DREOD6NG6CS4299CC", 
"S40 1534268240344", 
"GU44D24AD4 486004", 
"615A4SCPFOOGSSICD", 
"OGOSS663A4A426R32A", 
“SRIGKRZ680010642A", 
"00346708088 10G00", 
"04686001831410054", 
"600270FCSBBF4E75", 
"OBO2000067024B843", 
"7407C441E649DN241", 
"OBS B00030042660A", 
"4E75B7514E750002", 
"FE9C044452415700", 
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data entered at: 


"OLIO4ED2S49FA0054" 
"000001 124E926640" 
"SS343662E3031E800" 
"EBO2COFCOO2ZSBDGAE" 
"2OSS60BO06R1T02040" 
"4E7S70OF 14E7570FA" 
“QO4E4100007295CA" 
"6004538A44941082E” 
“E25997CK944546708A" 
"44428441 462063348" 
"SA4B3001E2403C02" 
"CS45D046B0445508" 
"D24CD44D48476000" 
"FFE27O004E /S482E" 
“BH4ASBOOLE S4244441" 
"SE SCRO80087EO0003" 
“LESCOGCGD24680618" 
"S3142004F4E75/70FF” 
"6184 700G262800SE" 


“224680022EF 4AD2ZE2" 


"D2C1S207E479C4641" 
“4641C25182432281" 
“FEAAD4SO40C4F 5400" 


"QOOOOG000000", "He", 


listing 2. 


“start 


co-ordinates fit inside the window. If not it 
returns directly to EXTOP with an ‘out of 
range’ error. Register D7 is assigned to 
the 'mask'’ of a single pixel in MODE 4; this 
is a binary pattern containing ‘1's for each 
bit used to control a single pixel in MODE 
4, and ‘0’ for the rest. Later the mask is 
shifted sideways to select any pixel froma 
word of display memory. 

Another system variable test reads 
SV.MCSTA, which has bit 3 set if the 
machine is in MODE 8. If so, the X co- 
ordinate is made even and an extra bit is 
added to the mask, as MODE 8 uses three 
colour bits, against two in MODE 4. 

Internally PLOT and DRAW use co- 
ordinates relative to the top left corner of 
the screen, rather than the current win- 
dow, so the code at RANGE__OK adds 
the window offsets to D1 and D2. Each co- 
ordinate must be stored somewhere, in 
case we need to DRAW from it later. If we 
were re-writing Qdos we could make extra 
space available in the channel definition 
but this is not easy once the channel is 
open. | have cheated by using the least 
significant bits of SD.XORG and 
SD.YORG, the floating point co-ordinates 
of the graphics origin. 

These locations are set by SCALE and 
used to find the screen origin for slow 
commands like POINT, LINE and CIR- 
CLE. It seems possible to use the loca- 
tions for those purposes without prolems, 
so long as you do a PLOT to set a sensible 
‘last position’ after each SCALE com- 
mand, 

The least significant bits are used, so 
that the values stored by PLOT and 
DRAW make a difference of less than one 
part in a million to the scale. The offsets 
have been set up as equates — XSTORE 
and YSTORE — at the start of the listing, 
so it is easy to change them if you wish, 

The routine to PLOT a pixel is also used 
by DRAW. First it calls RANGE__CHK, 
then it sets DO to zero, so PLOT can 
return with ERR.OK but DRAW can call 
the rest of the code without corrupting DO. 
Both routines go through PLOT__PIXEL, 
which grabs the ink mask from the 
channel details. This long word contains 
the screen bit pattern for the current INK 
colour, the value which would be in screen 
memory if the whole screen was that 
colour. 

Stipples mean that a particular ‘colour’ 
might use different values on alternate 
screen lines. The low half of the mask 
contains the bit pattern for even- 
numbered lines and the high word holds 
the pattern. for odd-numbered lines. 

Next PLOT must find the word of video 
memory which stores the relevant pixel. 
Each line takes 128 bytes, so the start of 
memory for the line concerned is found by 
adding Y star 128 to the start address of 
video RAM from the channel details. 
There are 512 possible X co-ordinates on 
each 64-word line. We find the required 
word by converting the pixel X co- 
ordinate, 0-511, into an even offset be- 
tween 0 and 126. 


37 


OL World DIY Toolkit September 1989, 


10 BDRAW 6,0 TO 200,100 
20 : 
100 
140 
160 
180 
200 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
ao 
340 
350 
360 
370 
36G 
2906 
400 
4140 


dx=SIGNCendx—-aldx) : 
mx=ABS (endx—-aldx) 3: 
IF mx S=my 


ELSE 
parts=mx = 
END IF 
temp=steps DIV 2 
FOR dot=1 TO steps 
temp=temp+parts 
IF temp>=steps 
temp=temp—steps 
Cldx=oldx+dx 5: 
ELSE 
Oldx=oldx+ddx = 
END IF 
FLOT aldx,aldy 
END FOR dot 


END DEFine _LINE 


DEFine FuNction 
TF ved : RETurn 
END DEFine SIGN 


ae Me 


The algorithm is a slightly faster version 
of that used in PIXEL%. The OVER —1 
code just exclusive ORs a combination of 
the ink and pixel masks into screen 
memory, whereas the alternative code 
fetches the background, masks out the 
relevant pixel, ORs in the new ink and 
replaces the word. 

The routine to draw lines starts by 
reading the stored co-ordinates for the 
start of the line; then it calls 
RANGE__CHK, which returns with the 
screen-relative co-ordinates of the end of 
the line in D1 and D2. 

The algorithm to generate a straight line 
is simple in principle but complicated by 
the need to draw lines in any direction at 
any angle. The machine code is convo- 
luted and uses all 16 68008 registers, so | 
wrote the algorithm in SuperBasic for test 
purposes after | wrote PLOT and before | 
machine-coded DRAW. 

Listing three shows the algorithm in 
block-structured Basic. The first stage is 
to find the direction and magnitude of the 
line, in the X and Y dimensions. DX 
indicates whether the line moves left 
(—1), right (+ 1) or neither left or right (0). DY 
is the same for vertical movement; in 
other words, DX and DY indicate the 
approximate direction of the line, relative 
to the horizontal and vertical. 

MX and MY indicate the number of 
pixels to be moved vertically or horizontal- 
ly. The values are always positive, or 
zero, because of the ABS function. 
Assuming pixels are square, you can 
draw a straight line at any angle between 
O and 45 degrees by stepping through a 
series of points equal to the greater of MX 
and MY. At each step you advance X or Y, 
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parts=my =: steps=mx : 


steps=my : 


listing 3. 


DEFine FROCedure BDRAW(oldx,aldy,endx,endy) 


dy=SIGNfendy—oldy) 


my=ABS (endy—oldy) 


ddx=dx : ddy=0 


ddx=0 : ddy=dy 


Oldy=oldy+dy 


olidy=caldy+ddy 


SIGNiv?s 


ELSE RETurn vid 


whichever is greater, by one. Whether 
you advance the other co-ordinate de- 
pends on the slope of the line. Since we 
want a straight line, the need for an 
alternate step depends on how long it was 
since you last took one. 

If MX equals MY the angle is 45 
degrees and you step one pixel horizon- 
tally and vertically at each stage. If either 
DX or DY is zero, the angle is zero and 
you just step either horizontally or vertical- 
ly until you get to the end. 

Most lines fall between those two 
angles. Sometimes you can make the 
step in DX and DY but sometimes you 
must just step in the main direction, 
indicated by the greater of MX and MY. 


The program creates two step values 
for each dimension — DX and DY, plus 
DDX and DDY for the alternative steps 
needed to cope with intermediate angles. 
DDX and DDY hold the ‘main’ direction. If 
MX exceeds MY, DDX is the same as DX 
and DDY is zero. If MY is greater than MX, 
DDY matches DY and DDx is zero. 

The problem is deciding when to step 
by (DX,DY) and when to use (DDX,DDY). 
The correct mix is determined by the ratio 
of MX and MY. If MX is relatively small you 
must take many vertical steps for every 
horizontal one. 

Since we want a continuous line, the 
total number of STEPS and points to be 
plotted is given by the greater of X and Y. 
The number of jumps out of line, or non- 
contiguous PARTS, is clearly the lesser of 
X and Y. For each step the algorithm adds 
the number of PARTS to a temporary 
variable. If the result exceeds the total in 


STEPS, the algorithm uses DX and DY to 
find the next point; otherwise it uses DDX 
and DDY. At the start TEMP is set to half 
the number of steps, so jumps out of line 
are spaced evenly. 

Any algorithm which works for angles 
between O and 45 degrees can be 
persuaded to cover a full circle by swap- 
ping X and Y and allowing positive and 
negative steps. This is the role of the 
SIGN function-calls and the first IF test. 

All the variables in listing three could be 
local integers but | have not written them 
as such because QLs are likely to crash if 
you use more than nine locals and 
parameters in one definition; further inte- 
ger operations are interpreted more slow- 
ly than floating point maths. 

Both problems are solved if you com- 
pile the procedure but there is little point 
as itis just an example. If you call BBRAW 
with variable parameters you should put 
them in brackets, or the values will be 
changed on return from the routine. 
BDRAW works satisfactorily in MODE 4 
but plots each point twice in MODE 8. 


The machine code version follows the 
same procedure as the Basic and the 
comments show Basic variable names for 
each register. To make the algorithm as 
fast as possible there is a fairly long set-up 
procedure, followed by a tight loop to 
output each pixel once the steps have 
been calculated. Notice how the X step is 
doubled for MODE 8 and the pixel mask is 
pre-set, so there is no need to check the 
mode as each dot is output. 

The code uses fast integer maths 
throughout and avoids relatively slow 
multiplication and division instructions by 
rotating values left and right to scale them 
by powers of two. 

The speed of DRAW depends on the 
speed of your QL RAM but it should be 
noticeably faster than LINE, even on the 
slowest QLs. It would be easy to make the 
code faster still, by making DOT__.LOOP 
work directly on screen line and column 
addresses rather than X and Y co- 
ordinates but that would make the prog- 
ram longer and more difficult to under- 
stand. 

There are many simple ways you can 
enhance PLOT and DRAW. A pixel- 
relative DRAW__R could be added in a 
few lines and it would be easy to adjust the 
parameter handler to cope with multiple 
lines or points. Clipping at the screen 
boundary could also be added but might 
be a little more tricky. 

Other improvements would involve 
writing different versions of the main loop 
for various directions of line, optimising for 
stipples which do not change between 
lines and adding support for FILL, which 
uses undocumented data structures. 

Please write to me, care of QL World, if 
you have found interesting tweaks or 
short applications for DIY Toolkit code. 
Send your suggestions if you would like 
me to explore a specific area in this 
column, or to implement new and original 
commands. 
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One Man’s System 


@® Bryan Davies looks back on his choice. 


ad the QL been more of a 
commercial success its main 
competitor might well have 
been the Amstrad PCW 8256, 
even though the two machines appear 
poles apart to some people. After several 
years of use, both machines are still 
essentially tools for people who write 
documents of one kind or another. 

Although no programmer — my inclina- 
tion is always to choose my own bits and 
pieces — | bought the QL; the choice at 
the time was QL or BBC. The selection 
process was rather a hassle but proved 
worthwhile in the long run. 

The display unit did not involve too 
much head-scratching. Microvitec looked 
to be the manufacturer to select and itwas 
a question only of what resolution was 
needed: fortunately, | was convinced 
early that colour was required and seeing 
the low-resolution Cub display connected 
to BBC computers soon made it clear 
medium resolution was essential for me. 
The model, bought in October, 1984, was 
the Cub 653; the designation seems to 
vary for what looks like the same unit and 
it is important when buying second-hand 
to check that the unit in question will 
display the full QL picture — 85 characters 
across the SuperBasic screen and the full 
Quill screen with 80 characters. 


Tweaked 


Although the screen colour settings 
have been tweaked twice and there is a 
slight misregistration of colours in one 
corner now, | rate the Cub as excellent 
and have spent nothing on itin almost four 
years. As one who sits in front of the 
screen almost every day for many hours it 
is safe to say looking at it does not cause 
much discomfort but one has to accept 
that the eyes usually cause some trouble 
when you reach the age of 40; a mono 
screen might be preferable for some 
people, because the eyes have to focus 
only at one range. 

If the program allows — é.g., The Editor 
— itis worth experimenting with the back- 
ground and foreground colours to see 
which combination makes the eyes feel 
most comfortable. There has been no 
evident deterioration in the quality of the 
Cub picture; one factor which should help 
maintain picture quality is turning down 
the brightness when the system is not 
being used and the programs Q__Switch 
and TaskMaster both allow this to be done 
automatically. 

The printer causes more pain to people 
than the other peripherals. Mine has 
never caused me to have regrets. It is a 
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Kaga Taxan KP-810, also sold in virtually 
identical form as the Canon PW1080A. In 
contrast to many products, this unit is still 
on sale and costs much the same as it did 
in 1984. There is an updated version — 
KP-815 — and a long-carriage one — KP- 
910. While there are a few printers at less 
than £200 | doubt whether they would 
have given such good service. As with the 
Cub, it has cost nothing beyond the 
purchase price other than ribbons. 

All bouts of strange behaviour have 
been traced to software problems — or a 
piece of paper in the belt drive on one 
occasion. It would certainly be better to 
have a choice of fonts but | have yet to 
design any additional ones; the neces- 
sary commands and memory are in the 
printer to enable them. If choosing a 
printer now | would almost certainly go for 
a 24-pin type — NEC or Star—ata price not 
much higher than the Kaga but they could 
not give better reliability. 

It is difficult to estimate how many 
sheets of paper have gone through a 
printer through the years but the figure 
must be in the tens of thousands for mine, 
with no obvious deterioration in perform- 
ance. Small, and possibly overlooked, is 
the serial interface between QL and Kaga. 
This is the one most users have, the 
Miracle, and it also has given no trouble. 

Disc drives are more in the add-on 
category. You must have a display and it 
is difficult to visualise a system without a 
printer but you can live without discs. That 
is a tongue-in-cheek remark. There is no 
way | would have managed to do serious 
work for almost four years with only 
Microdrives for company. The dual Mitsu- 
bishi 3.5in. drives on my system have 
been as good as the Cub and the Kaga:; 
not a penny has been spent on repairs to 
them. The only extra expense has been a 
disc drive cleaning kit. 

The drives are the one-third-height 
type, which seem to be a much better 
product than the half-height type, which 
were around for a time a few years ago 
and were apparently withdrawn by the 
manufacturers after giving much trouble. 
The current “standard” drive is from NEC 
and it also is generally reliable. 

Disc interface and expansion memory 
problems figure frequently in readers’ 
letters, so it may sound surprising that the 
PCML 256K external interface and MP 
256K internal memory expansion in my 
original system have been trouble-free. In 
the never-ending search for more mem- 
ory, a Trump Card was added to the other 
system a year ago and it has become 
almost indispensible but the two QLs on 
which ithas been used have locked up too 


many times for comfort — the PCML/MP 
system is virtually rock-solid in this re- 
spect — and no amount of fiddling with 
components has proved able to stop it. 

This is a situation where one has to 
weigh the merits and demerits and the 
Trump Card has, to my mind, been the 
major hardware advance on the QL scene 
in recent times, so | would not want to use 
the system without it. 

In the ROM port resides the Ice front- 
end firmware with a mouse attached. This 
also is in the indispensible category for 
me but it has not been without its hiccups. 
The firmware was replaced several times 
before it became reliable and the mouse 
has gone sick twice. Occasional weird 
system behaviour has been attributed to 
bad contact between ROM and socket, 
which has required filing of the alignment 
slot in the ROM PCB connector, smoo- 
thing of the solder on some pins and the 
attachment of the ROM to the QL by a 
bracket and two screws. 


Weird 


As for the QL, it cannot be said there 
have been no failures and no expense; if 
you use the keyboard a good deal, a new 
membrane every year or two should be no 
surprise and a considerable amount of 
time and money has gone on cartridges 
ahd, to a lesser extent, Microdrives. If you 
are reasonably adept at doing repairs it 
will be time rather than money which is 
spent. Most of my time went into stopping 
lock-ups and overheating; lock-ups still 
occur on one system but not on the other 
and over-heating is a thing of the past 
since modifying the 5V regulator set-up, 
drilling ventilation holes and using one of 
Dennis Briggs’ power supplies. 

It is very easy to give advice on how to 
keep a system working trouble-free but it 
is much more difficult to offer convincing 
arguments why particular precautions 
enhance reliability. Because it seems 
common sense to do so. | frequently 
vacuum the computer system area and 
room, using a Black & Decker car vacuum 
cleaner, and wipe the table and system 
units with a damp cloth. Dust and dirt are 
brushed from the computer, disc drives 
and printer with a soft paste brush, also 
frequently and prior to vacuuming. The 
drive cleaner is used every three weeks. 
Disc errors are virtually non-existent. 

The screen-dimming function ensures 
that the phosphor coating on the inside of 
the tube gets minimum excitation for most 
of the time the system is on; although the 
system is on, typically, 10-15 hours per 
day, it is rare for me to be putting anything 
on the screen for more than half that time. 

So what of the future? The only new 
piece of hardware which looks to be on 
the horizon is a hard disc drive. A hard 
disc can transform a system for a user 
who makes heavy demands on it. You 
soon get used to moving megabytes in 
seconds. 
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any SuperBasic projects start 
as a result of thinking “Would 
it not be pleasant if”. Would it 
not be pleasant if the DIR 
command could be asked to list only 
those filenames suffixed with “doc”. It 
would also be good if a single DELETE 
command could remove all files associ- 
ated with “test”, such as “test1__bas”, 
“oldtest1__bkp” and “newtest__doc”. 
For once, the MS-DOS operating sys- 
tem is ahead of Qdos because its file 
management commands allow users to 
specify groups of files related by filename. 
The Unix operating system is even more 
advanced, because its pattern-matching 
algorithms work not only with file names 
but also with file contents. Unix equiva- 
lents to the suggestions above are: 


Is *__doc (1s = list) 


rm *__testw (rm = remove) 

Pattern matching is also important in 
database applications because it allows 
records which share common character- 
istics to be grouped. An inventory data- 
base might be searched for all types of 
bolts, or a mailing list searched for all 
London addresses, or a data file exami- 
ned to retrieve lines which include the, 
initials QL. 


Wildcards 


Many QL owners already have a simple 
file name matching facility provided either 
by Tony Tebby’s Toolkit or by their floppy 
disc interfaces but it cannot distinguish 
between the suffixes “__doc” and “__do- 
cy” and it would not associate “newtest- 
—doc” with other “test” files. Nor can it be 
used to search file contents. 

The most important element of pattern 

matching, and what Tebby’s Toolkit lacks, 
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is wildcards, or characters with special 
meanings. The term is derived from card 
games in which a particular card can be 
used to represent any other card. Two 
wildcards are implemented in the Super- 
Basic function listed with this article, the 
asterisk and the question-mark. 

When an asterisk appears in a pattern 
string it represents any number of charac- 
ters, including none at all. The pattern 
“Fred*xdoc” therefore will match 
“Fred_bkp_doc”, “Freda_doc” and 
“Freddoc”. The question-mark represents 
any single character. Thus, “Fred?” 


“Many SuperBasic 
projects start as a 
result of thinking 
‘Would it not be 

pleasant if... ?’” 


matches any five-letter string which be- 
gins with the letters “Fred”. “Freda” and 
“Fredi” would match, while “Freddy” and 
“Fred” would not. 

Having used the asterisk and question- 
mark as wildcards it seems that they 
cannot then be used with just their 
ordinary meanings. This problem is 
solved by a third metacharacter, the 
backslash {I}, which can be used before 
either of the other characters to derefer- 
ence it, or take away its special meaning. 
For instance, all strings which end in 
question-marks can be selected using the 
pattern “#1?” 

Wildcards offer powerful benefits which 
more than offset the sometimes awkward 
construction of patterns. The following 
examples presume the existence of a 
dictionary array: 


Unlike Unix and MS-DOS, 
Qdos does not include a 
pattern-matching facility. Mike 
Lloyd rectifies that anomaly 
with a powerful SuperBasic 
function. 


“T???" finds all four-letter words begin- 
ning with “T” 

“*#ing” finds all words ending in “ing” 

“*jx” finds all words containing a “J” 

“22?” finds all words longer than three 
letters 

“Dar?ing” finds Darling, Darning and 
Darting 

“Darxing” also finds Daring, Darjeeling, 
Darkening and so on. 


A pattern string comprises groups of 
ASCII characters interspersed by groups 
of wildcards. To match a pattern with a 
target string each group of ASCII charac- 
ters must find exact equivalents at 
appropriate points in the target, determi- 
ned largely by whatever wildcards appear 
immediately before them in the pattern 
string. A simple algorithm which suggests 
itself is therefore: 


“Use the INSTR function to match each 
text group in turn with the part of the target 
string dictated by previous matches and 
wildcards until either a complete match is 
found or until the end of the target string is 
reached. 


This algorithm does not always work. 
Imagine a search using the pattern 
“*S?N*". The algorithm will identify 
“Sinclair” correctly as a match but it would 
reject the equally correct “Sir Clive Sinc- 
lair’ because the INSTR function would 
find the first “S” in “Sir”, discover that the 
second letter following is not an “n" and 
report a failure, never realising that a 
correct match can be found later in the 
string. . 

If a single pass of the target string is 
unreliable, some form of recursion is 
needed. Recursive algorithms are those 
defined in terms of themselves and 
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Listing 1 


100 
102 
104 
184 
188 
118 
112 
114 
116 
118 
120 
122 
124 
126 
128 
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DEFine FuNction Match (Fattern$, Str) 


LOCal Char, Text, Weard, Mask, Loop, Result 


LOCal Charpos(1@), Endchar (10), First (i@) 
LOCal MinFos(1@), MaxPos(1@), xX, Y¥ 
Mask = Fattern$: Char = 1: Text = @ 
FOR x = 1 TO 1@ 
REFeat Loop 
Weard = Mask#(Char) INSTR "\?e" 


IF Weard?1 AND Text: Text = @: EXIT Loop 


IF ¢((Weard?1) + Text) = @ 
Text = i: Charpos(x) = Char 
END IF 
SELect ON Weard 
= t: IF Char = LEN(Mask#): STOF 
IF Char = 1 
Mask$ Mask#(2 TO) 
ELSE 
Mask = Mask#(1 TO Chari) & 
Mask$(Char+1 TO) 
END IF 
MinPos(X) = MinFos(x) + 1 
MaxFos (xX) 1 
END SELect 
Char = Char +1 
IF Char > LEN(Mask#): EXIT Loop 
END REFeat Loop 
Endehar(X) = Char <1 
IF (har > LEN(Mask#): EXIT X 
END FOR xX 


Listing 2 


20Q 


Y= I: First(Y¥) = 1 + MinFos(1) 


202 REFeat toop 


204 
206 
208 
210 
212 
214 
216 


a 
100 ee 


IF Charpos(Y) = @ 
IF MaxPFos (CY) 
Result = LEN(Str#) »= First (Y) 
ELSE 


Result = LEN(Str#) = First(Y) -1 


END IF 
ELSE 
IF First¢y) > LEN(Str#): RETurn @ 
IF MaxPos(¢yY) 
Last = LEN(Str#) 
ELSE 


Last First (Y) +Endchar (Y) —-Charpos ( 


END IF 


Result = Mask#(Charpos(Y) TO Endchar (Y) 


INSTR Str#(First(Y) TO Last) 
END IF 


IF Result = @ 
REPeat backtrack 
Y= YY =~ i: IF ¥Y = @: RETurn © 
IF MaxPos(Y): EXIT backtrack 
END REFPeat backtrack 
ELSE 
IF Charpos(Y) = @: RETurn i 
First(Y) = First ¢(Y) + Result 
First ¢(¥Y +1) = First¢Y) + Endechar (Y) 
- Charpos(Y¥) + MinPos(Y +1) 
YeryYeri 
END IF 
END REFeat Loop 


324 END DEFine 
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understanding them can confuse even 
the most experienced programmers. To 
illustrate recursion, Confucious might 
have said: 


A journey is a journey followed by a single 
Step. 


The great philosopher would have been 
on to something except that the definition 
is invalid for the first and last steps in the 
journey. Recursive computer functions 
are usually started by an externally- 
provided parameter — the first step — and 
completed when some condition is 
reached — the last step. About the sim- 
plest example is a function to compute 


“The great 
philosopher would 
have been on to 
something, except that 
the definition is 
invalid for the first 
and last steps.” 


factorials. The factorial of 5 is 5x4x3x 
2x1, or 120. A SuperBasic function to 
compute the factorial of any number is: 


100 DEFine FuNction Factorial (num) 
170 iF num = 1 THEN 

120 RETurn 7 

130 ELSE 

140 RETurn num * Factorial (num —1) 
150 END 1F 

160 END DEFine Factorial 


A recursive approach to pattern match- 
ing requires a new definition of a pattern 
string which divides it into a series of like 
elements. The standard element of a 
pattern string comprises at least one 
wildcard followed by a number of “nor- 
mal” characters. Exceptions to the stan- 
dard are elements comprising only wild- 
cards or text. Patterns can contain any 
number of elements “flp?_*doc” con- 
sists of the elements “flp”, “?__” and 
“doc”. 

A recursive algorithm would take each 
element separately and attempt to find a 
match. If successful, matches for suc- 
ceeding elements would be attempted 
until the last element in the pattern was 
reached. If any match failed the algorithm 
would back-track to find a further match 
for the previous element, if there was one. 

This is best iflustrated by an example. 
The target string “The rain in Spain” might 
be checked against the pattern “*ain”. 
The text characters, “ain”, are sliced from 
the pattern string and a match is found in 
“rain”. Without a trailing asterisk the 
match must occur at the end of a string, 
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which in this case is not true. The function 
then repeats itself with what remains of 
the target string, “in Spain” and this time 
finds a successful match in “Spain”. 

If the target string is “The rain in 
Portugal” the first match with “rain” would 
again fail and a second run through the 
algorithm would fail to find another occurr- 
ence of “ain” and so the algorithm would 
report a failure. 

Unfortunately, although SuperBasic 
allows recursive functions to be defined, 
the one written to accompany this article 
persistently corrupted the Qdos name 
table which stores details of all Super- 
Basic keywords and user-defined vari- 
ables. The cause and cure for this prob- 
lem remain unidentified. Strangely, the 
function runs properly when compiled 
with Turbo and so some rare SuperBasic 
bug is possibly to blame. 

To complete the assignment on time 
the function was re-written completely 
using arrays of pointers in the place of 
recursion and it is this somewhat mono- 
lithic routine which is spread across 
listings one, two and three. 

Listing one begins by declaring all the 
necessary local variables and arrays. 
Three of the arrays are used for pointers. 
Charpos and Endchar are used to hold 
the positions of the first and last charac- 
ters in each group of normal characters. 
The First array shows the first position in 
the target string from which each search 
may start. 


Variables 


The Minpos array records how many 
question-mark wildcards appear in each 
pattern element. The Maxpos array 
shows whether or not an asterisk wildcard 
is present. Other variables will be ex- 
plained as they are used. 

A local copy of the pattern string, 
Mask§, is obtained so that it can be sliced 
without affecting the parameter. A pointer 
to the “current” character is set to one and 
a flag indicating whether text or wild-cards 
are being processed is set to zero, 
indicating that a wildcard is next ex- 
pected. A FOR. . .NEXT loop repeats for 
each pattern element. Recalling the de- 
finition of a pattern element it can be seen 
that the pattern “* ??Sinclair” comprises 
a single element, whereas “?S*r” con- 
tains two. It is unlikely that more than 10 
elements will occur. 

In the FOR...NEXT loop a REPEAT 
loop tests each character in Mask$ 
against a string of metacharacters. The 
two IF statements which follow at lines 
116 and 118 test for what astrologists 
might call the cusp between groups of 
adjacent wildcards and groups of text 
characters. If a wildcard following a run of 
normal characters is detected, it belongs 
to the next pattern element and so the 
loop is exited. On the other hand, if the 
first text character in an element is 
detected its position is recorded in the 
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Listing 4 


400 
492 
404 
486 
408 
410 
412 
414 
416 
418 
420 
422 
424 
426 
428 
420 
432 


REMark *** Example Use of Match 

REPeat SongMatch 
INPUT#Q; "Match = "; 
IF Test = 


Test 
EXIT SongMatch 
CLS: PAPER @: INK 7: RESTORE 400 
FOR Try = £ TO 10 
READ Song#: k = Match (Tests, 
IF k: aS = "HIT": ELSE : at = 
STRIF 2*k: FRINT at; TO 4; 
END FOR Try 
END REPeat SongMatch 
DATA “Here, There and Everywhere" 
DATA "And I Love Her", "True" 
DATA "Dancing in the Dark", 
DATA "Loving You", "It Must Be True” 
DATA "There Always Will Be You" 
DATA "Dance Away", "Will You?" 


Songs) 
"MISS" 
Songs 


"Private Dancer" 


Charpos array and the text flag is set to 
one before the REPeat loop continues. 

Wildcards alter the bounds of the 
search area in the target string. A pattern 
of “*xdoc*” will search the entire target 
string for the occurrence of the characters 
“doc”. It does not matter how many 
consecutive asterisks appear; the effect 
is still the same. With question-marks, 
however, quantity is important and so 
they are counted in the SELECT struc- 
ture. 

The effect of the backslash, which 
dereferences a following wildcard, is 
produced by slicing the pattern string to 


“The Unix operating 
system pattern- 
matching algorithms 
work not only with 
files names but also 
with file contents.” 


remove it. This ensures that the wildcard 
shifts to the left by one place and thus 
avoids detection at the beginning of the 
next loop. 

The REPEAT loop ends by increment- 
ing the Char pointer. It is exited at the end 
of each pattern element, at which point 
the Endchar pointer is saved and the 
FOR...NEXT loop is cycled. When the 
final element has been processed control 
passes to the next listing. 

The object of the second listing is to 
identify whether a match exists between 
the text characters in a pattern element 
and the area of the target string currently 
under scrutiny. A new counter, Y, controls 
progress through the pattern elements. 

The values of the First array vary to 
show the point in the target string at which 
each search must begin. After each 


search this point moves rightwards 
through the target string. The initial First 
value is set according to how many 
question-mark wildcards appear in the 
first pattern element. 

A feature of the pattern analysis is that 
the Charpos value for the last pattern 
element will always be zero. Using this to 
identify the last element. Result can be set 
according to how many characters remain 
in the string. 

For elements other than the last, an end 
point for the search must be calculated. If 
an asterisk is present it will be the final 
character in the target string; otherwise it 
depends on the length of the current 
group of text characters and the pre- 
sence of question-mark wildcards. 


Bounded 


Unless the First character position is 
beyond the end of the target string, the 
part of the target string bounded by the 
First and Last character positions is 
searched for a match at Line 230. 

Listing three acts according to the value 
of Result. If Result is zero the backtrack- 
ing loop returns to the last pattern in which 
an asterisk appears to try for a further 
search. 

If Result is positive the current First 
value is incremented by the Result value. 
The First value for the next pattern 
element is then calculated based on the 
location of the match, the length of the 
current normal character group and the 
existence of question-mark characters in 
the next pattern element. Finally, the Y 
counter is incremented before the loop 
repeats. 

If the code remains confusing, do not 
worry. Type-in the function and test it 
using the fourth listing against either the 
data provided or against your data. 


@ Next month Mike Lloyd puts pattern 
matching to serious use in a file manage- 
ment utility. 
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If you have a program worthy of consideration, send it to ‘The Progs’ 
Sinclair QL World, Greencoat House, Francis Street, London SW1P 4 
We pay for everything published at the usual page rates. 


Program of the month 


WORDBLOK by Phillip Sproston 


as many words as youcanmake letters. No forcign words, You can cheat and look at 


ordblok is sim- 


ple to play but 
difficult to win. 
All you have to 
do is choose a word grid from 
one to 10, or Jet the computer 
select a random grid for you. 


trom the word grid; the catch is 
that every word must include 
the letter on the right of the 
grid. 

All words are of four letters 
or more and cach grid contains 


proper names or plurals are 
allowed, remember that a plu- 
ral docs not always have an ‘s* 
on the end. 

At the end of each round the 
computer will fillin the missing 


the listing for the answers but if 
you really want a testing time, 
get somebody clse to type in 
the data for you. Then you 
could develop some more grids 
and give your friends a hard 


You will then be asked to find at least one word with 10 


mdvil_wordblok 1961 Jul 14 23:49:42 Fri 


100 REMark WORDBLOK 

110 WINDOW 448,200,32,16:PAPER O:;WINDOW £2,448,200 
.32,16:PAPER £1,0:MODE 2:OPEN £8,CON_: WINDOW £8, 51 
2,255,0,0: PAPER £8,0:0G=0 

120 CLS £8:CSIZE 2,1:I1NK 7 

130 AT 1,13: PRINT 'WORDBLOK’ 

140 A$= QUANTUM SOFT 1985’: INK 4 

150 FOR Ce1 TO LEN(A$)-1 

160 AT 4,8: PRINT A$(LEN(A$)-C 
3. 4,6 

470 END FOR C: BEEP: INK 2 
180 AT 7,4:PRINT "PRESS 
190 AT 9,8:PRINT “PRESS 
200 IF KEYROW(3)=8 THEN 
210 IF KEYROW(5)=4 THEN 
220 GO TO 200 

260 CLS £84 

270 CSIZE 3,1:AT 0.9:INK 2: UNDER 1: PRINT 
‘; UNDER O: INK 7 

260 CSIZE 1,0: PRINT 
TO MAKE AS MANY WORDS AS 
TTERS PROVIDED." 

290 PRINT \'THE WORDS MUST BE AT LEAST FOUR LETTER 
S LONG AND EACH OFTHE LETTERS CAN ONLY BE USED ONC 
E. 
300 
GER 
310 
320 
DS, 
uM TYPE 


TO }:BEEP 0,C,C,1,2, 


*I' FOR INSTRUCTIONS” 
's' TO START" 

GO TO 500 

GO TO 260 


*WORDBLOK 


\"THE OBJECT OF 'WORDBLOK’ IS 
POSSIBLE OUT OF THE LE 


PRINT \\'HOWEVER EACH WORD MUST CONTAIN THE LAR 
LETTER ON THE RIGHT OF THE OTHER LETTERS. ' 
PRINT \'THERE IS AT LEAST ONE 10 LETTER WORD.' 


PRINT \'NO PLURALS ARE ALLOWED, NO FOREIGN WOR 
AND NO PROPER NAMES(e.g ANDREW).': INK 2: PRINT 
'*®? FOR YOUR FINAL SCORE.": INK 7 
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words and tell you your score. time. 


330 CSIZE 3,1:INK U:AT 9,2: PRINT "PRESS 'ENTER' TO 
START” 

350 K$=INKEY$(5):IF CODE(K$)<>10 THEN GO 
500 CLS£8: INK 4 

510 CSIZE 2,1:AT 2,4:UNDER 1: PRINT 
EY FOR OPTION’:UNDER 0 

520 INK 2:AT 5,5:PRINT "'C'=CHOOSE A GRID NUMBER" 
§30 AT 7,5:PRINT "'R'=A RANDOM GRID NUMBER” 

540 IF KEYROW(2)=8 THEN GO TO 580:REMark CHOOSE 
550 IF KEYROW(5)=16 THEN GO TO 650:REMark RANDOM 
560 GO TO 540 

580 CSIZE £0,3,1 

590 CLS£0: PRINTEO, ‘PRESS 
600 G$=INKEY$(5):1IF G$='' THEN GO TO 600 
610 IF G$>'9' OR G$<'0O’ THEN GO TO 600 
620 IF G$='0O' THEN G=10:GO TO 1000 

630 G=G$ 

640 GO TO 1000 

650 K$=INKEY$(9)}: IF K$<>'' THEN GO TO 650 
660 RANDOMISE:G=RND(1 TO 10):IF G=OG THEN 
o 

670 OG=G 

999 REMark SET UP 

1000 CLS£8:CSIZE 3,1: INK £0,2:CSIZE£0,3,1: UNDER 1: 
INK 4:AT 1,18:PRINT 'WORDBLOK': UNDER 0: INK 7: RESTO 
RE (10000+(10*(G-1))) 

1010 READ N,W$,A,B,E 

1020 DIM T$(N,10):DIM P$(N,10):FOR C=1 TO N 

1030 READ T$(C):END FOR C 

1050 PAPER 2:FOR C=O TO 2 

1060 AT 3+C,20:PRINT W$((3*C)+1 TO 
R C: PAPER 4 

1070 AT 3,23:PRINT ' 
3:PRINT ' ': PAPER 0 


TO 350 


‘PLEASE PRESS K 


GRID NUMBER (1 TO 10)' 


Go Ta 66 


(3*C)+9):END FO 


':AT 4,23: PRINT W$(10):AT 6,2 
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1080 CSIZE 1,0: FOR C=1i TO N 
1090 C#=C:IF C>20 THEN AT C-21,20-(LEN(C$}):GoO To 
1120 
1100 AT C-1,4-LEN(C#) 
1120 PRINT c$;'.' 
21150 END FOR c 
1160 AT 13,36; INK 2: UNDER 1:PRINT 
1170 AT 4,35:PRINT QUANTUMSOFT 1985":AT 0,41:PR 
INT 'GRID:';G:AT 7,33: PRINT 'WORDS': INK 7:CSIZE 3, 
1:AT 4,17:PRINT '*O':CSIZE 1,0 
1180 K¢="* FOR FINAL SCORE': FOR C=1 TO LEN(K$) 
1190 AT C+#1,54:PRINT K$(C):END FOR C 
1200 DIM 0$(6,10):REMark OTHERS 
1210 S=#0:REMark NUM OF WORDS 
1220 XS=0:REMark XTRA WORDS 
1500 CLS£0: INPUT £0," 
GO TO 1500 
1505 IF £$(1)='*"' THEN GO TO 3000 
1510 L=LEN(E$):IF L<4 OR L>10 THEN 
1520 CLS£0: PRINT £0,° WRONG WORD LENGTH' 
1630 BEEP 2000,99: PAUSE 50:G0 TO 1500 
1540 END IF :FOR C=1 TO L 
1545 IF E$(C)=' ' THEN CLS£0:PRINT £0;° SPACES 
NOT ALLOWED': BEEP 2000,50: PAUSE 50:GO TO 1500 
1550 END FOR C:C$=w$ 
1560 FOR c=1 TO L 
1570 IF E$(C}=W$(10) THEN GO TO 1600 
1580 END FOR C:CLS£0: PRINT £0," 
WS( LO); ttt 
1590 BEEP 2000,80:PAUSE 50:GO TO 1500 
1600 FOR Cel TO L 
1610 FOR V=1 TO 109 
1620 IF E$(C)=C$(V) THEN GO TO 1640 
1630 END FOR V:CLS£0:PRINT £0,* LETTER ERROR IN 
WORD’:BEEP 2000,70: PAUSE 50:GO TO 1500 
1640 C$(V)="' ': END FOR C 
1670 FOR C=1 TON 
1680 IF T$(C)=E$ THEN GO TO 1800 
1690 END FOR C:FOR C=1 TO 6 
1695 IF E#=O$(C) THEN AT 13+C,36:INK 4&4: PRINT E$: BE 


‘OTHERS': UNDER 0 


WORD: ";E¢: IF E¢='' THEN 


NO LETTER '"; 


EP 2000,40:CLS£0: PRINT £0, 'YOU ALREADY HAVE THAT © 


NEt': PAUSE 80: INK 7!:AT 13+C,36:PRINT E$:GO TO 1500 
1700 END FOR C:BEEP 2000,40:CLS£0: PRINT £0," 


N'T KNOW THAT WORD"\" 


I po 
PLEASE CONFIRM (Y OR N)* 
1710 K$=INKEY$(5):IF K¢='' THEN GO TO 1710 
1720 IF K¢='N' THEN GO TO 1500 
1730 IF K#<>’Y' THEN GO TO 1710 
1740 CLS£0: PRINT £0," OK I BELIEVE YOU!': BEEP 
2000,40: PAUSE 45 
1750 XS=XS+1:I1F xS>6 THEN XS=6:AT 19,36:PRINT ' 

‘ 
1760 O$(XS)=E$:AT 13+XS,36: PRINT E$:S=S+1:GO TO 20 
oa 
1800 FOR Cel TO N 
1810 IF P${(C)=E$ THEN 
1820 BEEP 2000,30:CLS£0: PRINT £0," 
Y GOT THAT!" 
1830 C$=C:IF C>20 THEN AT C-21,21:GO0 TO 1850 
1840 AT C-1,5 
21850 INK 4:PRINT E$: PAUSE 50: INK 7 
1860 C$=C:IF C>20 THEN AT C-21,21:G0 TO 1880 
1870 AT C-1,5 
1880 PRINT E$:GO TO 1500 
1890 END IF 
1900 END FOR C 
1902 FOR C=1 TO N 
1905 IF T$(C)=E$ THEN GO TO 1910 
1907 END FOR c 
1910 CLS£0: PRINT £0," 
00,60 
1930 
1guo 
1950 


YOU HAVE ALREAD 


THAT'S CORRECT"; BEEP 20 


IF C>20 THEN AT C-21,21:G0 TO 1950 

AT C-1,5 

PRINT ES 

1960 P$(C}§E$:5=S+1: PAUSE ho 

2000 AT 0,0:S$=S:CSIZE 3,1:AT 4,18-LEN(S$): PRINT § 
tAT 0,0;CSIZE 1,0:GO TO 1500 

3000 CLS£0: PRINT £0,' GAME ABANDONED't 

3010 INK 2:FOR C=1 TO N 

3020 IF T$(C)<>P$(C) THEN 

3030 IF C>20 THEN AT C-21,21:G0 TO 3050 

3040 AT C-1,5 

3050 PRINT T#(C) 

3060 END IF 

3070 END FOR C:INK 7 

3080 CLS£0: PRINT £0," PRESS '‘ENTER' WHEN READY” 
3090 K¢=INKEY$(9):IF K$=''THEN GO TO 3090 

3100 IF CODE(K$)<>10 THEN GO TO 3090 
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3110 CLSz8 

3120 K¢='"FINAL RATING’; CSIZE 3,1:INK 4:FOR C=1 
LEN(K$)-1 

3130 AT 3,7: PRINT K$(LEN(K$)-C TO 
3140 INK 2:R¢='’POOR' 

3150 IF S>=A THEN R$='GoOoD' 

3160 IF S>=B THEN R$='VERY GOOD’ 
3170 IF S>=E THEN R#='EXCELLENT' 
3180 AT 9,1:PRINT "PRESS 'SPACE' 
3190 FOR C=0 TO 7 STEP 2 

3200 INK C:AT §,13-(LEN(R$)/2):PRINT R$ 

3210 K$=INKEY$(9):IF K$=' * THEN INK 7:CLS £8:G0 T 
Oo 120 

3220 END FOR ¢:GO TO 3190 

8888 CSIZE £0,0,0 

9998 STOP 

9999 DELETE MDV1_WORDBLOK: SAVE MDV1_WORDBLOK: STOP 
10000 DATA 32, 'THEERCNERD',23,27,32, 'CEDE', 'CENTRE 
D', 'CHEERED', 'CREED', ‘DECENT’, 'DECREE', 'DEER', "DEN 
E', *DENT', 'DETER', 'DRENCH', ’ENTERED', ‘ERECTED’, 'ER 
RED', ‘ETCHED', 'HEED', 'HERD', 'NEED',.'RECEDE', 'REED' 
. "REND', 'RENDER’, 'RENTED', 'RETCHED’, 'RETRENCHED',' 
TEED’ 

.'TEHEED', 'TEND', ’TENDER', 'TREED’, 'TRENCHED"', 'TREN 
D':REMark 14 MAR 

10010 DATA 26, *BADLYNTANU',16,21,26, ‘ABUNDANT', 'AB 
UNDANTLY', 'ABUT', 'ADULT', ’ANNUAL', ’ANNUL', 'AUNT', ' 
BAUD', 'BLUNT', '"BUNA', 'BUNT', "BUTYL", 'DAUB', 'DAUNT' 
»'DUAL', 'DULY’, 'DUTY’, 'LANDAU', ’LAUD', 'TABU', ’TUBA 
', 'TUBAL", 'TUNNY', UDAL', 'ULNA', *UNLAY' 

10020 DATA 26, 'NICOTNOROT', 20,23, 26, 'CITRON', 'CONT 
ORT', 'CONTORTION', 'COOT', 'COTTON’, 'CROTON’, 'INTO', 
*WOTrTOMt, (onTo", “OTIC, “OTTO', "RIOT! , ROOT", CIRCT 
*, “TINT! PLIRG* , *PoVic*. Hor”, “TaRe*, 'TaRiC’ , “FoR 
AY, for?’ , “TRICOT’ , "TRIO" , "TRITON ', ' rRoT * 

10030 DATA 33, 'ACEYONVECN’, 22,27,33, "ACNE", 'AEON' 
‘ANCON', 'ANNOY'. 'ANON', TANYONE', 'CANE', 'CANNY', TCA 
NOE', 'CANON', ‘CANYON’, 'CONCAVE', 'CONE', 'CONEY'’, 'CO 
NVENE', ’CONVEY', 'CONVEYANCE', 'COVEN', 'CYAN', 'ENVOY 
', TENVY', TEVEN', 'NAVE', 'NAVY', 'NEON', "NONCE', ‘NONE 
*, "NO 

VA', 'NOVENA', 'OCEAN', 'ONCE', OVEN’, 'VANE' 

10040 DATA 40, 'TONICEMMMT', 29,35,40, 'CENT', 'CENTO" 
. 'CITE’, ‘COMET’, "COMMENT', 'COMMIT', ‘COMMITMENT’, 'C 
OTE’, 'EMIT', 'ENTOMIC', ‘INTO', 'ITEM', ‘MINT’, 'MITE* 
‘MITT’, 'MITTEN’, 'MOMENT’, 'MOTE', 'MOTET', 'MOTTE'’, 'N 
HTT", "WOETIC', ‘NOTE’, 'NOTICE', ‘OCTET, "OMET’*, “OTIC 
‘TE 

NT’, “TICE, "TIME’, "TINET', "TINE, 'TINT', ‘TOME’, 'TO 
NE', ’TONEMIC’, 'TONIC', 'TOTE', 'TOTEM’, "TOTEMIC' 
10050 DATA 25, ‘ROBIYNIHIT',17,21,25, 'BIOTIN', 'BIRT 
H’, 'BORT’, 'BOTH', 'BROTH', 'HINT', 'INHIBIT’, ‘INHIBIT 
OR', 'INHIBITORY',*INTO', 'NORTH’, "OBIT', ‘ORBIT’, 'RI 
OT', *THIN', ‘THORN', 'THORNY', 'THROB’, 'TINY', 'TIRO', 
‘Tony’, TORN", TRIO", “TROV', PYRO" 

10060 DATA 39, 'OILRIGNIER’,28,33,39, 'ENROL', 'ERRIN 
G', 'GIRL', "GIRO', 'GOER', 'GORE’, 'GRIN', 'GROIN', 'IGN 
ORE', 'INLIER', 'IRON’, 'TRONER', 'TRRELIGION', 'LIGER'* 
.'LIGROIN', LINER’, ’LINGER’, 'LOIR', 'LONER', 'LORE’, 
‘LORINER’, 'LORN', 'NEROLI’, 'OGRE', 'OLLER’, ‘ORIEL’,' 
ORIGI 

N', 'ORLE', "REGION', 'REIGN', ’REIN', 'RELIGION', 'RILE 
', "RILING', 'RING', 'RINGER', ’ROIL', 'ROILING', 'ROLE' 
10070 DATA 40, ‘EATNIBLIEV’, 30,35,40, ALIVE’, "ANVIL 
‘, "BEVEL', 'ENVIABLE', ‘EVEN', 'EVENT', 'EVIL', 'INEVIT 
ABLE', ‘INVITE’, ‘INVITEE', 'LAVE', 'LEAVVEN', ’LENITIV 
E', ‘LEVANT', LEVIN', ’LIVE', ’LIVEN', ‘NAIVE', "NATIVE 
*, "NAVE', *NAVEL', 'VAIL', 'VAIN', 'VALE', 'VALET’, ‘VAN 
me PY 

EAL’, 'VEIL’, 'VEIN', 'VEINLET', 'VELETA', 'VENAL', 'VEN 
IAL', ‘VENT', *VENTIL', 'VIABLE', 'VIAL', 'VILE', 'VINE' 
+ 'VITALt 

10080 DATA 28, 'REQUESTING', 19, 24,28, 'ENQUIRE’, 'EQU 
INE', 'ESQUIRE', 'INQUEST’, 'QUEEN', 'QUEER', 'QUEERING 
', "QUERIST', 'QUERN’, 'QUEST', ‘QUESTING', 'QUIET', "Qt 
IETEN', 'QUINT', 'QUINTE', 'QUIRE', 'QUIT', 'QUITE', 'QU 
ITS', "REQUEST', 'REQUESTING', 'REQUITE', 'SEQUENT','S 
EQUIN 

', 'SQUINT’, 'SQUIRE’, 'SQUIREEN', ‘SQUIRT? 

10090 DATA 40, ’LAPYIBCEMC', 29,35,40, 'ACME', 'AMICE' 
» 'BECALM', 'BICE’, 'BICYCLE', 'CABLE', 'CALM', 'CAME',' 
CAMEL', 'CAMP', ’CAPE', 'CELIBACY', 'CICELY', 'CLAIM', ' 
CLAM', 'CLAMP', 'CLAP', 'CLAY', ‘CLIMB’, 'CLIME', 'CLIF* 
. 'CYCLE', 'CYMBAL', 'EPIC', 'EPICAL', 'IMPECCABLY', *LA 
cEF,§ i 
LACY', *LAIC', 'MACE', 'MACLE', 'MALIC', "MALICE', 'MELL 
ct, 'MICA', 'PACE', 'PICA', 'PLACE', "PLAICE', 'PYAEMIC' 


TO 


J:END FOR C 


TO CONTINUE" 
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Sector Software 


The best programs and peripherals for the QL 


Overdrive 


Printer driver for any program. 255 translate sequences, will print 
screendumps within standard files e.g. Quill documents. 
Expanded QL Only. £16 


QZ/QL to Z88 file transfer 


Software and cable to connect the Z88 and QL and transfer any 
files between them. Includes Archive to Pipedream and back 
conversion routines. £2 


Spellbound 


A spelling checker that checks your spelling AS YOU TYPE. Based 
on a 30,000 word dictionary, works with Quill or The Editor 
1.17 onwards on the expanded QL.” £30 


Image processor 
Tidies up images produced by a digitiser. Will produce clip art for 
PD2 from QL screens and picture enhancement. 19 


Taskmaster 


A brilliant multitasking front end system which lets you use the 
QL as a serious machine. Multitask many programs at once. 
£25 


Sinclair Satellite 


We now have Clive Sinclair's satellite TV systems in stock. Only 
£195 for a full 48 channel, stereo, remote control version. Phone 
now for details. 


Write Turn 
Turn spreadsheets and documents on their sides with this 
excellent utility, works on Epson and compatible printers 


£12 
QL World Index 


A complete index to the contents of QL World from its start to 
May 1988. Find articles and reviews in seconds, 160K+ of data 
compressed to fit into a 128K QL £6 


Flashback 
A very fast and slick database which has very few limitations. Will 
also convert Archive files. £25 


Flashback — Special Edition 

Many new features over the original flashback ine report 
generator etc, etc. £40 
Touch Typist 


Excellent typing tutor that works. 200 lessons , graph of your 
progress, adjustable difficulty levels £12 


New Enhanced QL Test software & lead 


Will test your major QL functions. Includes an RS232 loopback 
lead to test the serial ports. £14 


Ferret 


Find lost files fast with this file search utility which will read all 
your files on disk or mdv looking for a match with your search 
text. £12 


STD Index 


This index to all the dialling codes in the country executes from 
disk in 15 seconds. Know the place and it will tell you the 
number, know the number and it will tell you the place! (Ex- 
panded QL only.) £12 


Page Designer 2 


This is a full feature desktop publisher that has to be seen to be 
believed. Ask for full details of this system and its support pro- 
grams. £35 


Phillips CM8833 Colour Stereo Monitor 


A stereo monitor for the QL, Amiga, ST or almost any computer 


£260 

MDV Cartridge Doctor 
Rescues corrupt files and microdrives £13 
Tandata Qcom Stacking Modem £39 
LC10 printer £229 
LC10 colour printer £274 
LC2410 printer £374 
QL Service Manual £25 
Keyboard membranes only £6 
ZX8301 ULA £12 
Microdrive cartridges £1.90 
3.5" DSDD disks £1,25 
Massive reductions in Z88 prices! 
Z88 Computer Was £287 

Now £230 


288 Allin one kit: 
Z88 computer, 128K RAM,Mains Adaptor, custom carry case, 
Batteries, User Manual Was £329 

Now £287 
If you are not receiving our free QL catalogue just 
send your name and address and we will include 


you in future mailings 


QL SuperBasic 


The definitive handbook by Jan Jones £8 


@sSectorSofware @ LE) 


39 Wray Crescent, Ulnes Walton, Leyland, Lancs PRS 3NH 
Tel 0772 454328, Fax 0772 454680, Prestel Mbx 772454328 
All prices include VAT and P&P 


